Регистрация
Куропаткана666гргрг
19.03.2023 23:31
Информатика
Есть ответ 👍

Есептеуыш техника буындарына колданылатын куралдарды аныктаныз

181
409
Посмотреть ответы 1

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

Joan36
Joan36
4,7(76 оценок)
Program max; var     a: integer; {само проверяемое число}       m: integer; {максимально число} begin m: =0; {начальное значение максимального числа} writeln('введите ваше число: ', '(если захотите выйти, напишите ноль)': 3); readln(a); while (a < > 0) then begin           if (a > m) then begin           m: = a; end;             readln(a); end; writeln('максимально число: ', m: 3); end.

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