Вводится число программ n< =10. напечатать фразу "я разработал n программ", согласовав слово "программа" с числом n. предусмотреть ситуацию ввода n< 0. буду . решение через case of
112
306
Ответы на вопрос:
Не уточнили язык - получите паскаль. мог бы сделать на с++ program znanija; var n,i: integer; begin readln(n); if n < 0 then begin writeln('я не разработал программ'); exit; end; write('я разработал ', n, ' '); case n of 1: writeln('программу'); 2..4: writeln('программы'); 0,5..10: writeln('программ'); end; end.
Var m, n: integer; k, d, s: real; begin read(m, n, k, d); repeat d : = d - m * k + n * k / 2; s : = s + m * k; until d < = 0; writeln(s); end.
Популярно: Информатика
-
shintasovazeba30.01.2020 07:17
-
moiytrewq2000523.07.2022 20:03
-
pro100skill13213.11.2022 20:27
-
00BlackMoon0010.12.2021 07:41
-
zhanbolat200707.03.2022 05:48
-
vasviktor23.09.2021 07:28
-
masha1990214.06.2022 04:14
-
pаvеl204.04.2021 00:19
-
Пумба13229.10.2021 14:08
-
andrmarka32114.03.2020 14:12