Регистрация
Daniil2263
10.06.2022 02:57
Информатика
Есть ответ 👍

Склавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. определить количество четных чисел. напишите на языке паскаль

297
479
Посмотреть ответы 2

Ответы на вопрос:

LadySmail
LadySmail
4,6(41 оценок)
Var a,b,c: integer; begin c: =0; b: =-30000; read(a); while a < > 0 do begin read(a); if (a> b) then b: =a; if a mod 2 = 0 then c: =c+1; end; writeln('макс число: ', b); writeln('четных ', c); end.
AzaLin1
AzaLin1
4,8(36 оценок)

Будет 7876 надеюсь

Популярно: Информатика