Question

Ввести два числа.Если их сумма больше100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

Answer 1

программа для паскаля

uses crt;

var a,b,s:real;

begin

clrscr;

write ('a='); read (a);

write ('b='); read (b);

s:=a+b;

if s>100 then writeln (s/2)

else writeln (2*s);

end.