Нужно написать программу pascal abc

Question

Информатика

Артамоха

28 сентября, 03:17

Нужно написать программу pascal abc

+5

Ответы (1)

Знаете ответ?

Ина · Answer 1

Программа про банк (Мы в школе изучали) :

Program bank;

var

S1, S2, P:real;

g:integer;

write ('Введите начальную сумму') ; readln (S1) ;

write ('Введите конечную сумму') ; readln (S2) ;

write ('Введите процентную ставку') ; readln (P) ;

g:=0; while S1
begin

S1:=S2+32*S1*P/100;

g:=g+1;

end;

writeln ('До накопления суммы пройдёт ', g,' лет') ;

end.

Правда длинная но в тетрадке у меня только это.