С клавиатуры вводятся числа до сих пор пока не введено число -5. Найти количество…

Question

41

С клавиатуры вводятся числа до сих пор пока не введено число -5. Найти количество чисел кратных 13 извведенных.

в избранное ссылка

Знаете ответ?

alex96 · Accepted Answer

50

alex96

21 февраля 2023

Var i,s: integer; beginwhile i<>-5 do beginreadln (i); if i mod 2=0 then s: =s+1; end; writeln (s); end.

комментировать

в избранное ссылка отблагодарить