Регистрация
almightybarbara
29.10.2020 13:35
Информатика
Есть ответ 👍

Вкажи програму що розв'язує цю задачу

213
218
Посмотреть ответы 2

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

SkottHelimboorg
SkottHelimboorg
4,4(11 оценок)

я знаю шо це буде с но це правильно

CagBak
CagBak
4,7(86 оценок)
Var a,min: integer; begin; min: = 32767; a: =1; while a< > 0 do begin; readln(a); if a=0 then break; if a> 0 then exit; if min> a then min: =a; end; writeln(min); end.

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