Известно правило кодирования — после каждой гласной буквы ставится буква «и», после каждой согласной — «ц». зашифруй слова: практикум, принтер, секрет, честь.
132
167
Ответы на вопрос:
Практикум = пцрцаикцтциикцуимц принтер = пцрциинцтцеирц секрет = сцеикцрцеитц честь = чцеисцтць
Var a: array[1..1024] of integer; p: longint; i: integer; begin p: =1; repeat i: =i+1; readln(a[i]); if a[i]< 0 then begin if a[i]< > -4 then writeln('vvedite polozhitelnoe chuslo'); end else begin if a[i] mod 2< > 0 then p: =p*a[i]; end; until a[i]=-4; writeln('proizvidenie = ',p); end.
Популярно: Информатика
-
26Регинка03.05.2022 17:13
-
margaritabennioxwu8x26.03.2022 22:31
-
санёк5566546465403.12.2020 22:09
-
matsakov9915.02.2023 04:27
-
dmitrijcazovo8118.07.2021 08:31
-
xomahgf04.03.2023 07:48
-
kate83215.10.2021 00:26
-
aushatsy11.06.2022 05:01
-
CockDown16.01.2021 21:16
-
Катя88111803.12.2021 20:59