Thordinaya
6 год назад
Присвойте величине а значение наибольшего из трех заданных чисел. Паскаль.
ОТВЕТЫ
Никифор
Jul 7, 2019
Program mm;
Var a,b,n,k:integer;
BEGIN
n:=3; / задаем кол-во чисел
while (ngt;k) do begin
k:=k+1;
readln (b); / вводим нужное число
if (bgt;a) then a:=b; / задаем величине а наибольшее значение
end;
writeln (a); / выводим(если надо)
END.
Должно сработать. Сейчас нет возможности проверить.
Var a,b,n,k:integer;
BEGIN
n:=3; / задаем кол-во чисел
while (ngt;k) do begin
k:=k+1;
readln (b); / вводим нужное число
if (bgt;a) then a:=b; / задаем величине а наибольшее значение
end;
writeln (a); / выводим(если надо)
END.
Должно сработать. Сейчас нет возможности проверить.
59
