Есть ответ 👍

Запишите логическую функцию, описывающую состояние схемы.

239
366
Посмотреть ответы 1

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


Var s,p,sum: real; k: integer; begin write('s = '); readln(s); write('p = '); readln(p); k: =0; sum: =s; while sum< 1000000 do   begin   k: =k+1;   sum: =sum*(100+p)/100;   end; writeln('k = ',k); end. пример: s = 400000p = 10k = 10

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