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

Question

Информатика

Дорофей

1 марта, 00:04

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

+5

Ответы (1)

Знаете ответ на вопрос?

Леонинка · Answer 1

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.

Тогда так