Начальные значения: s=0;n=3;
1 шаг цикла
0*0*0 = 0 (< 123)
s := 1;
n := 5;
2 шаг цикла
1*1*1 = 1 (< 123)
s := 2;
n := 7;
3 шаг цикла
2*2*2 = 8 (< 123)
s := 3;
n := 9;
4 шаг цикла
3*3*3 = 27 (< 123)
s := 4;
n := 11;
5 шаг цикла
4*4*4 = 64 (< 123)
s := 5;
n := 13;
6 шаг цикла
5*5*5 = 125 (< 123)
условие не выполняется, выходим из цикла
будет выведено число 13
Информатика - это основанная на использовании компьютерной техники дисциплина, изучающая структура и свойства информации, а также способы ее хранения, обработки и передачи.
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.
var a,b,c:real;
begin
readln(a,b,c);
if a> max(b,c) then writeln(a)
else if b> max(a,c) then writeln(b)
else writeln(max(a,c))
end.