Предмет: Информатика,
автор: arutunyantatevi
Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности.
Только не надо с других сайтов брать.
Ответы
Автор ответа:
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.
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.
Автор ответа:
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.
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:
почему-то ошибку какую-то выдает(
Похожие вопросы
Предмет: ОБЖ,
автор: ksicbann
Предмет: Қазақ тiлi,
автор: opopzivemzivem0
Предмет: Биология,
автор: danan8584
Предмет: Литература,
автор: РозаЗайко