Регистрация
jeviduwel
09.10.2021 12:23
Информатика
Есть ответ 👍

Решите задание по информатике

103
174
Посмотреть ответы 1

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

Gold1121
Gold1121
4,4(62 оценок)
Var i,n: integer; begin n: =1; i: =1; write ('числа не кратные 2 и 5: '); while i< =8 do begin if (n mod 2 < > 0) and (n mod 5 < > 0) then begin write (n,' '); i: =i+1; end; n: =n+1; end; end.

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