Регистрация
Noooo123456
03.11.2020 13:22
Информатика
Есть ответ 👍

Склавиатуры вводятся 3 числа, подсчитать сколько среди них четных положительных чисел. ps: использовать функцию деления по модулю: a mod b- выдает остаток при делении числа а на число b 15 mod 2=1 15 mod 3=0

261
455
Посмотреть ответы 2

Ответы на вопрос:

Yaroslav483
Yaroslav483
4,6(34 оценок)
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.
АЙДЫН261
АЙДЫН261
4,5(12 оценок)

25 раз.

Вытяжка из https://wiki.freepascal.org/For/ru:

"for I:=100 downto 1 do ''statement'';

(повторяет statement сто раз, уменьшая значение I от 100 до 1)"

Объяснение:

Популярно: Информатика