/* тут мы на паскале определяем переменные a и b примерно: var a=введи меня с экрана, b=введи меня с экрана */ function foo (a,b){// функция возвращает a+b или b-a if(a==b)return a+b; return b-a; } /* тут мы на паскале делаем вывод на экран результата функции, которую вызываем так foo(a,b) примерно вывожу на экран foo(a, b) */ чтобы не было путаницы с языками оставил только логику приложения
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.
тут мы на паскале определяем переменные a и b
примерно:
var a=введи меня с экрана, b=введи меня с экрана
*/
function foo (a,b){// функция возвращает a+b или b-a
if(a==b)return a+b;
return b-a;
}
/*
тут мы на паскале делаем вывод на экран результата функции, которую вызываем так foo(a,b)
примерно
вывожу на экран foo(a, b)
*/
чтобы не было путаницы с языками оставил только логику приложения
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.
Тогда так