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.
Тогда так
2 votes Thanks 1
Ololoshoshok
Вот так вот в итоге. Я в паскальюабц работал, так что подправь синтаксис, если что-то не так.
Answers & Comments
Verified answer
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.
Тогда так
Я в паскальюабц работал, так что подправь синтаксис, если что-то не так.