Регистрация
Ольга2465
07.07.2021 07:32
Информатика
Есть ответ 👍

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

108
404
Посмотреть ответы 2

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

MariamAr81849
MariamAr81849
4,4(47 оценок)
Var a,b,c: integer; beginc: =0; b: =-30000; read(a); while a < > 0 dobeginread(a); if (a> b) then b: =a; if a mod 2 = 0 then c: =c+1; end; writeln('макс число: ', b); writeln('четных ', c); end.
PdAl
PdAl
4,6(14 оценок)

Объяснение:

0.

A = 4; B = 8; C = 7; D = 15.

1.

D = C = 7.

C = B = 8.

B = A = 4.

2.

A = 4. B = 4. C = 8. D = 7.

ответ: A = 4. B = 4. C = 8. D = 7.

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