Ответы на вопрос:
Var med, t, i: integer; begin med: =100; writeln('введите t> > '); read(t); for i: =2 to t do begin med: =med+i*50; writeln(med, ' через ', i, ' часов'); end; writeln(med, ' грамм'); end.
Популярно: Информатика
-
жсдрю04.10.2021 01:07
-
JHOOOOOOPE29.03.2021 09:15
-
ayazhanbeibit516.05.2023 21:34
-
уицилопочтли23.04.2020 20:14
-
6654665405.05.2023 20:20
-
vipdana22822.07.2020 11:25
-
lukianova20172002.09.2020 02:44
-
Racamaxa01.11.2022 09:01
-
andreykotov611.12.2021 14:05
-
Котеика1космос09.04.2023 03:05