Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Напишите программу ввода чисел а,b с клавиатуры.Если a=b,то вывести на экран сумму a и b,иначе вывести на экран b-a (используя Функцию)Паскаль

Ответ оставил Гость

Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write (Введите a - );readln(c);
write (Введите b - );readln(d);
writeln(k9(c ,d));
end.

Тогда так