1.Программа запрашивает два числа, и, если они оба положительные, вычисляет их сумму,...

Question

1.Программа запрашивает два числа, и, если они оба положительные, вычисляет их сумму, иначе вычисляет их произведение. 2.Программа запрашивает сумму кредита А, а так же процент по кредиту В и сообщает, какую сумму S вы вернёте через год. S, А объявляете real в разделе описания переменных.

Answer 1

Ответ:

Объяснение:

1)

var a,b:integer;

begin

readln(a,b);

if (a>0) and (b>0) then

writeln(a+b)

else

writeln(a*b)

end.

2)

var b:integer;

var a,s:real;

begin

readln(a);

writeln('введите проценты годовых например 14');

readln(b);

s:=a/100*(100+b);

writeln(s)

end.