Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Var i, n: integer; Begin N:=2; For i:=1 to 3 do If (n mod i)=0 then writeln (i); End.

Молдир Знаток (287), на голосовании 10 лет назад
Var i, n: integer;
Begin
N:=2;
For i:=1 to 3 do
If (n mod i)=0 then writeln (i);
End.
Голосование за лучший ответ
Ildar Гуру (4789) 10 лет назад
Спасибо, будет что почитать в туалете.
Похожие вопросы