Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности.
Только не надо с других сайтов брать.
Только не надо с других сайтов брать.
More Questions From This User See All
Answers & Comments
var
a,n,i,z:integer;
begin
readln(n);
z:=0;
for i:=1 to n do begin
readln(a);
if(a>0) then
if(odd(a)=False) then inc(z);
end;
writeln(z);
end.
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
if(a>0) and (a mod 2 = 0) then inc(p);
write('Введите число: ');
readln(a)
end;
writeln('Количество чётных положительных чисел: ',p)
end.