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

sonya401 sonya401    1   16.05.2019 17:25    2

Ответы
melochek228 melochek228  10.06.2020 13:16

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика