Pesamav
7 год назад
Прочитать с экрана 8 целых чисел и из большего вычесть 5. Результат напечатать. (Замечание:использовать в программе не более 3 переменных) (На ПАСКАЛЕ)
ОТВЕТЫ
Lalumzok
Jul 14, 2019
Var a,b,c:integer;
readln(a);
for c:=1 to 7 do
begin
readln(b);
if(bgt;a)
a:=b;
end;
b:=a-5;
writeln(b);
end.
readln(a);
for c:=1 to 7 do
begin
readln(b);
if(bgt;a)
a:=b;
end;
b:=a-5;
writeln(b);
end.
224
