№1

10-11 класс

Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:

• 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

С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».

настююююха 18 сент. 2013 г., 3:19:08 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Persepaliya

18 сент. 2013 г., 3:49:18 (10 лет назад)

N1
var a, b: integer;

• begin

• readln(a, b);

• a := a mod 2;
b := b mod 2;
• if (b > 0) and (a > 0) then

• writeln ('четных чисел нет')

• else

• writeln ('четное число есть');
end.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Riddley0848 / 17 сент. 2013 г., 2:27:48

В алфавите племени МУМУ всего 4 буквы (А, У, М, К), один знак препинания (точка) и для разделения слов используется пробел. Подсчитали, что в популярном

романе «Мумука» содержится всего 10000 знаков, из них: букв А - 4000, букв У - 1000, букв М - 2000, букв К - 1500, точек -500, пробелов - 1000. Какое количество информации содержит книга?