Есть ответ 👍

Составить массив целых чисел состаящих из 100 элементов. найти произведение четных чисел

202
318
Посмотреть ответы 2

Ответы на вопрос:

dotafign9
4,8(100 оценок)

24 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40

Интересная ) 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.

Популярно: Информатика