Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности
Ответы на вопрос
Ответил антагонист
0
var a,col:integer;
begin
col:=0;
a:=0;
while a<>0 do begin
read(a);
if ((a mod 2 = 0) and (a>0)) then col:=col+1;
end;
write(col);
end.
begin
col:=0;
a:=0;
while a<>0 do begin
read(a);
if ((a mod 2 = 0) and (a>0)) then col:=col+1;
end;
write(col);
end.
Ответил rsr
0
Спасибо. А у меня есть еще один вопрос по инфе, на который никто не ответил. Посмотри, пожалуйста, если хочешь еще баллов
Ответил антагонист
0
не направите меня на него?
Новые вопросы