Ответы на вопрос:
Var n,i : integer; a : array [1..3] of integer; begin read(n); while n> =35 do begin inc(a[3]); n: =n-60; end; while n> =9 do begin inc(a[2]); n: =n-10; end; while n> =1 do begin inc(a[1]); dec(n); end; for i: =1 to 3 do write(a[i], ' '); end.
Популярно: Информатика
-
sonya001324.05.2021 14:13
-
molotower15.01.2020 10:26
-
Domikiahela19.02.2022 11:26
-
tyrko2411199512.06.2023 07:28
-
Rondov01.10.2020 20:14
-
25marta5221.09.2021 15:56
-
bolt1322231312.01.2022 08:29
-
14Dana1409.11.2022 18:17
-
weloyda02.03.2022 16:37
-
ilyaronaldo22.03.2021 21:45