Ответ: varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.varmax,a : integer;beginreadln(a);max := a;while (a<>0) dobeginreadln(a);if (a > max) and (a <> 0) thenmax := a;end;writeln(max);readln;end.
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наи
большего) из введёных чисел.Используйте оператор repeat.
————————————————————-
Решить в паскале
напишите программу вычисления наибольшего общего делителя двух натуральных чисел
а) использовать оператор repeat
б)использовать оператор while — Правильный ответ на вопрос найдете ниже
10.12.2019 · 1