С клавиатуры вводятся 3 числа, подсчитать сколько среди них четных положительных чисел.
5-9 класс
|
PS: использовать функцию деления по модулю:
a mod b- выдает остаток при делении числа а на число b
15 mod 2=1
15 mod 3=0
var a,b,c,k:integer;
begin
k:=0;
writeln('Input a,b,c');
read(a,b,c);
if (a > 0) and (a mod 2 = 0) then inc(k);
if (b > 0) and (b mod 2 = 0) then inc(k);
if (c > 0) and (c mod 2 = 0) then inc(k);
writeln;
write('K = ',K);
end.
Другие вопросы из категории
Читайте также
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.
Задача в pascal Цикл с условием
Первая задача:
S=1+2+3+4+.....+
вторая задача:
С клавиатуры вводятся целые числа 0 на конце,средние значение положительных чисел.
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
сумму. 346.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 347.Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.