Var i : Integer;
Begin
For i:=100 to 999 do
If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);
end.
Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962
Никак. пиши на английском. если хочешь, чтобы была возможность писать на русском, то качай pascal abc
Примеры:
1)
Вышел на улицу - неполная
Вася вышел гулять на площадке перед домом в шесть часов вечера - полная
2)
Поставил два за поведение - неполная
Дворник ради шутки поставил два за поведение в дневник мальчика - полная.
Полезная:
В моей комнате лежит циркуль,который ты вчера искал
Неполезная:
У меня в комнате есть циркуль
понятная :(дайте мне перекись водорода) и непонятная :(дайте мне пероксид водорода