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.