Решал подобную линейную задачу. Вот текст задачи
Оформить процедурой решение задачи на определение наибольшего из двух чисел
program f390;
var a,x,y,b:real;
procedure f1(var x,y:real);
begin
if x>y then writeln ('a')
else writeln ('b');
end;
begin
read(x,y);
f1(x,y);
writeln(a);
writeln(b);
end.
Теги...
Сообщение отредактировано: volvo -