Регистрация
Silkerd
08.11.2022 19:01
Информатика
Есть ответ 👍

Комьпютердің пайдалануда эргономикалық талаптарды бұзудың зардаптары. өтінеем керек

247
482
Посмотреть ответы 1

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

nosok666
nosok666
4,4(42 оценок)
Var a,s: integer; begin s: =1; for a: =1 to 20   do begin if (a mod 3 = 0) and (a mod 5 = 0) then s: =a*s; end; writeln('произведение чисел кратных 5 и 3 ==> ', s); end.

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