Ответы
Гость Program zadacha;
Var
a: integer;
Begin
For a:=1 to 30 do
If (a mod 2=0) and (a mod 7=0) then
Writeln(a);
Readln;
end.
Думаю, что вот так) Крайне извиняюсь, если ошиблась)
Нет комментариев
Список предметов
