Регистрация
flox1998
01.01.2021 08:42
Информатика
Есть ответ 👍

Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наи большего) из введёных чисел.используйте оператор repeat. решить в паскале напишите программу вычисления наибольшего общего делителя двух натуральных чисел а) использовать оператор repeat б)использовать оператор while

146
287
Посмотреть ответы 2

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

bobrikov01
bobrikov01
4,4(90 оценок)
Var max,a : integer; begin readln(a); max : = a; repeat readln(a); if (a > max) and (a < > 0) then max : = a; until a = 0; writeln(max); readln; end. var max,a : integer; begin readln(a); max : = a; while (a< > 0) do begin readln(a); if (a > max) and (a < > 0) then max : = a; end; writeln(max); readln; end.
Irina1357
Irina1357
4,7(55 оценок)
1. вычисление среднего арифметического последовательности чисел. пример: срзнач(3; 5; 7); 2. нахождение max и min значения. пример: макс(а3: с15); 3. вычисление половины числа (медианы) пример: мода(6; 8); также существуют другие функции, но они более (дисперсия, ввод random числа, отклонение);

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