Регистрация
3667
08.06.2020 07:34
Информатика
Есть ответ 👍

turbo pascal y={√x^2+5, якщо x>=0
{8x-7, якщо x<0

177
449
Посмотреть ответы 1

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

siemens227
siemens227
4,6(58 оценок)

program raf105;

var

  s,p,n: real;

  i,let: integer;

begin

write('введите положенную сумму: ');

readln(s);

write('введите ежегодный прирост (%): ');

readln(p);

write('введите желаемую сумму: ');

readln(n);

while s < n do

begin

  let+= 1;

  s+= s/100*p;

end;

writeln('первоначальная сумма увеличится до желаемой через ',let,' л.');

end.

язык pascalabc

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