Регистрация
dikray1
18.11.2022 16:40
Информатика
Есть ответ 👍

Написать программу для pascal abc. гражданин н. положил в банк s рублей под p процентов годовых. какая сумма накопится через 15 лет?

260
368
Посмотреть ответы 2

Ответы на вопрос:

toteara1
toteara1
4,5(83 оценок)
Var h,s,p,x,z: real; begin readln(h,s,p); p: =s/100; p: =p*15; z: =h*s+p; writeln(z); end.
Margarita12071
Margarita12071
4,6(69 оценок)

pascal

Объяснение:

program prog1;

var

 a: real;

begin

 Write('Введите число ');

 ReadLn(a);

 if a > 0 then a := a *3

 else if a < 0 then a := a + 10

 else a := a - 2;

 Write('a = ', a);

end.

Популярно: Информатика