Регистрация
oleegglazunov
04.08.2020 09:53
Информатика
Есть ответ 👍

Сделайте блок схему
Очень надо

226
267
Посмотреть ответы 1

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

Face22821
Face22821
4,7(41 оценок)
Var       a, b, k: real;       i: integer; begin       for i : = 1 to 30 do a : = a + 50000;       k : = 0.01;       for i : = 1 to 30 do begin             b : = b + k;             k  : = k*2; end;       writeln('богатый получит - ', a, ' руб.');       writeln('бедный получит - ', b, ' руб.');       writeln('разница - ',b - a, ' руб.'); end.

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