var
a1, a2, a3 a4 max: integer;
begin
write ('введите 4 числа: ');
readln (a1, a2, a3, a4);
if a1 > = a2 then
max : = a1
else
max : = a2;
if a2 > a3 then
max : = a2;
if a3> a4 max then
max: =a4
writeln ('максимальное из них: ', max);
readln
end.
1
i 1 2 3 4
s= 128 128-3=125 125-3=122 122-3=119 119-3=116
ответ: s=116
2
i 1 2
j 2 3 2 3
s=0 s=1+2=3 s=1+3=5 s=2+2=4 s=2+3=5
ответ: s=5 (конечный результат)
Поделитесь своими знаниями, ответьте на вопрос: