Напишите программу, которая принимает с клавиатуры 15 целых чисел и выводит на экран, сколько из них были четными и сколько нечетными.

Tori1111111 Tori1111111    1   29.06.2019 03:00    14

Ответы
iltubaevapg iltubaevapg  23.07.2020 07:23
Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика