Нужно решить 3 этих задания на паскале,даю 50 баллов.Оооочень нужно,ребят,помогите
Program bank;
const
tax = 0.18;
var
summ, amount : real;
period : real;
begin
write(Введите сумму вклада: );
readln(summ);
write(Введите срок вклада (мес): );
readln(period);
period := period/12;
amount := summ * period * tax;
writeln(Процент по вкладу составит: , amount:7:2);
end.
пример работы программы:
Введите сумму вклада: 1000
Введите срок вклада (мес): 18
Процент по вкладу составит: 270.00
Оцени ответ
