Program abc;
var a:integer;
begin
for a:=10 to 99 do
if a mod 6=0 then
write(a,' ');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Вывести на экран все двузначные числа кратные 6(паскаль)
Program abc;
var a:integer;
begin
for a:=10 to 99 do
if a mod 6=0 then
write(a,' ');
end.