сервис вопросов и ответовНаписать программу, которая проверяет, является ли четным введенное с клавиатуры целое число. Pascal ABC
10-11 класс|
|
Kgivargizova
12 апр. 2015 г., 2:46:46 (9 лет назад)
380951972842
12 апр. 2015 г., 5:28:40 (9 лет назад)
var
a : integer;
begin
readln (a);
if a mod 2 = 0 then
writeln ('число является чётным');
else
writeln ('число не является чётным');
end.
Ответить
Другие вопросы из категории
Опишите HTML-код данной таблицы. Название таблицы – Вариант 5. Ширина таблицы – 80% от ширины окна браузера. Рамки нет. В первой строке ячейки 1,4,7 –
заглавные. Фон ячейки номер 8 – желтый, фон самой таблицы – красный.
В колбе n бактерий.В какой-то момент времени в колбу попадает вирус.В первую минуту он уничтожает одну бактерию,после чего вирус и бактерии делятся в кажду
ю следующую минуту вирусы уничтожают по одной бактерии и снова делятся.Через сколько минут вирусы уничтожат все бактерии? Нужно привести решение в Паскале.Очень срочно!
Помогите написать программу)))
Задано трехзначное число, определить:
1) сумму цифр этого числа;
2) произведение;
3) минимальную цифру;
4) максимальную цифру этого числа.
Читайте также
1)Написать программу, которая спрашивает имя пользователя, а потом здоровается. 2)Написать программу, которая выводит на экран перевёрнутый
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Задание № 1) Разработать блок схему алгоритма, который проверяет, является ли четным введенное с клавиатуры число
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
№1
Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:
• var a, b: integer;
• begin
• readln(a, b);
• a := a mod 2;
• if a > 0 then b := b mod 2;
• if b > 0 then
• writeln ('четных чисел нет')
• else
• writeln ('четное число есть');
• end.
Доработайте эту программу таким образом, чтобы задача решалась верно.
№2
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».
№1
Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:
• var a, b: integer;
• begin
• readln(a, b);
• a := a mod 2;
• if a > 0 then b := b mod 2;
• if b > 0 then
• writeln ('четных чисел нет')
• else
• writeln ('четное число есть');
• end.
Доработайте эту программу таким образом, чтобы задача решалась верно.
№2
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».
Вы находитесь на странице вопроса "Написать программу, которая проверяет, является ли четным введенное с клавиатуры целое число. Pascal ABC", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.