СРОЧНО! Составьте программу…

Question

СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концомввода чисел является введенное число 0.

Answer 1

98

kiruha

01 марта 2023

Program Pr1; uses crt; var max,a: integer; Beginclrscr; max: =0; a: =1; while a<>0 do begin readln (a); if a>max then max: =a; end; writeln (max); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: