Предмет: Информатика,
автор: ИраТрошина
Пользователь вводит 10 чисел. Определить, сколько из них являются одновременно четными и положительными. ( авс паскаль )
Ответы
Автор ответа:
0
var a,i,k: integer;
begin
k:=0;
for i = 1 to 10 do
begin
readln (a);
if (a>0) and ((a mod 2)=0) then
k:=k+1;
end;
writeln (k);
end.
кажется так
begin
k:=0;
for i = 1 to 10 do
begin
readln (a);
if (a>0) and ((a mod 2)=0) then
k:=k+1;
end;
writeln (k);
end.
кажется так
Похожие вопросы
Предмет: Химия,
автор: ElahW
Предмет: Физика,
автор: skmbsm9507
Предмет: География,
автор: anastasia417994
Предмет: Алгебра,
автор: Smolensk99
Предмет: Математика,
автор: Аньтка200