Витя, коля, павлик и сережа учатся в 5, 6, 7 и 8 классах. в воскресенье они отправились в лес за грибами. - id488313220220514 от умная196 14.05.2022 02:51

Question

Информатика: Витя, коля, павлик и сережа учатся в 5, 6, 7 и 8 классах. в воскресенье они отправились в лес за грибами. шестикласснику не повезло – он не нашел ни одного белого гриба, а павлик с пятиклассником нашли по десять таких грибов. витя и семиклассник нашли ежа и позвали колю показать, какой «гриб» им попался. восьмиклассник, шестиклассник и коля объясняли сереже, как ориентироваться на местности. в каком классе учится каждый из мальчиков?

умная196 · Accepted Answer

var

n, max, count, contrl: integer;

begin

contrl := 0;

max := 0;

Writeln('Введите числа: ');

Readln(n);

while n <> 0 do

begin

Inc(count);

if (n mod 10 = 0) and (n > max) then max := n;

Read(n);

end;

Writeln('Введите контрольное значение: ');

Read(contrl);

Writeln('Получено: ', count, ' чисел');

Writeln('Получено контрольное значение: ', contrl);

Writeln('Вичисленное контрольное значение:: ', max);

if contrl = max then Writeln('Контроль пройден')

else Writeln('Контроль не пройден');

end.

MOGZ ответил