⇢ Ан
Анна
ввести с клавиатуры 10 пар чисел, сравнить числа в каждой паре и напечатать большее из них
написать программу в паскале и сделать блок-схему. помогите пожалуйста! срочно нужно сделать
ЕБ
Евгений Батарев
var
a,b:real;
i:byte;
begin
for i:=1 to 10 do begin
WriteLn('Enter a b');
ReadLn(a,b);
if a>b then Writeln(a) else Writeln(b);
end;
end.
Похожие вопросы