Cnt3_3 Ввести n чисел, подсчитать количество четных чисел больших или равных 12.
Cnt3_3 Ввести n чисел, подсчитать количество четных чисел больших или равных 12.
Гость
Ответ(ы) на вопрос:
Гостьvar s,i,x,n:integer;
begin
writeln('Введите n');
readln(n);
for i:=1 to 6 do
begin
readln(x);
if (x>=12) and (x mod 2=0) then s:=s+1;
end;
writeln('Ответ: ',s);
end.
Не нашли ответ?
Похожие вопросы