Регистрация
Anush8383
09.07.2020 17:39
Информатика
Есть ответ 👍

Обчислити вирази подані на рисунку

257
376
Посмотреть ответы 1

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

025858
025858
4,4(71 оценок)
Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       {write('число проданных газет:   ');       readln(k); }       k : = 200;             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.

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