Предмет: Информатика, автор: arutunyantatevi

Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности.
Только не надо с других сайтов брать.

Ответы

Автор ответа: pokemanbr
0
program aaa;
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. 
Автор ответа: elenaklon
0
var a,p:integer;
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. 

arutunyantatevi: почему-то ошибку какую-то выдает(
elenaklon: На чём проверяете? Какую ошибку?
Похожие вопросы
Предмет: Қазақ тiлi, автор: opopzivemzivem0
Предмет: Биология, автор: danan8584