Регистрация
сырнаядуша
21.03.2020 06:17
Информатика
Есть ответ 👍

Кто знает ответ.Скажите ​

111
131
Посмотреть ответы 1

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

филосов00
филосов00
4,6(49 оценок)
Var a,an,n: integer; begin a: =240000; an: =a; n: =0; while an< 3*a do    begin   n: =n+1;   an: =an+an div 40;   end; writeln('n = ',n); end. результат: n = 45

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