Ответы на вопрос:
1мб = 1024 кб поэтому 4^2-x = 16 * 1024 4^2-x = 16384 16 - x = 16384 -x = 16384 + 16 -x = 16400 x = -16400
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.
Популярно: Информатика
-
Юличка11133326.02.2021 04:22
-
lisadonik28.02.2023 15:38
-
Angelina00047714.10.2020 07:43
-
ivkn140106.03.2022 13:14
-
avramenkoviola31.03.2021 01:12
-
rjulia06419.10.2021 22:23
-
ugifhuf03.11.2022 18:18
-
Aki051028.12.2021 02:28
-
Философияна523.02.2023 02:00
-
Mamayuliya198618.06.2023 18:09