Составить программу, которая находит произведение однозначных чисел кратных 3

Есть ответ
12.12.2022
468

Ответ


program raf105;

var i,pro: integer;

begin

pro:= 1;

for i:=1 to 9 do

 if (i mod 3)=0

   then pro:= pro * i;

writeln(pro);

end.

Язык PascalABC


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.