Составить программу решения задачи: Ввести два числа. Если первое число больше второго, то найти их разность, иначе найти их сумму.

Question

Информатика

Прокофий

23 июля, 00:14

Составить программу решения задачи: Ввести два числа. Если первое число больше второго, то найти их разность, иначе найти их сумму.

+2

Ответы (1)

Знаете ответ?

Корнила · Answer 1

var a, b, c:real;

begin

writeln ('введите два числа') ;

readln (a, b) ;

c:=a+b;

if a> b then c:=a-b;

writeln (c:7:2) ;

end.

{2 способ}

var a, b, c:real;

begin

writeln ('введите два числа') ;

readln (a, b) ;

if a> b then c:=a-b

else c:=a+b;

writeln (c:7:2) ;

end.