УРУГВАЙ ,ПАРАГВАЙ,АФГАНИСТАН
Файл во вложении. Цифры и текст можешь поменять - это не принципиально
X. Y. Комментарий
4. 35 X >=Y ? нет. тогда идём на цикл по стрелке НЕТ
4+2=6. 35-6=29. X>=Y? Нет. Опять идём на цикл по стрелке НЕТ
6+2=8. 29-8=20. X>=Y? Нет. Делаем цикл по стрелке НЕТ
8+2=10. 20-10=10. X>=Y? Да. Выходим из цикла по стрелке ДА
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.
<h3><em><u>Язык PascalABC</u></em></h3>
1. 4+1 = 5 (7)
2. 5*2 = 10 (8)
3. 10+1 = 11 (7)
4. 11*2 = 22 (8)
5. 22+1 = 23 (7)
6. 23*2 = 46 (8)
7. 46+1 = 47 (7)
8. 47*2 = 94 (8)