Составить массив целых чисел состаящих из 100 элементов. найти произведение четных чисел
202
318
Ответы на вопрос:
Интересная ) var i,n : integer; begin n: =99; for i: =1 to n do begin case i of 11..14 : writeln('мне ',i,' лет'); else case i mod 10 of 1: writeln('мне ',i,' год'); 2..4: writeln('мне ',i,' года'); else writeln('мне ',i,' лет'); end; end; end; end.
Популярно: Информатика
-
JaLOX2284819.04.2023 12:25
-
Auebandit133718.08.2020 10:57
-
Exzampkle08.03.2021 12:44
-
BMOPLAY2326.04.2023 00:48
-
Ronaldinho200315.06.2021 10:57
-
ayselhasilova26.03.2020 04:30
-
350811.06.2022 19:39
-
anutik786628.01.2023 13:13
-
matve22816.01.2021 19:46
-
Ilvina124krs04.02.2022 11:42