Задача для Free Pascal

[svob]

Помогите решить задачу:

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

Жду ответов, заранее спасибо

[ViktorR]

Так понимаю, что это натуральные числа?

Например:

writeln(a, a/12:6:2,a/3:6:2); {результат - вещественное}

или

writeln(a,'   ', a div 12,'   ', a div 3);{результат - целое}

Как перебирать ...


Ну, вот, как-то так ...

[svob]

Так как я очень плохо разбираюсь в паскале не могли бы вы написать полную программу от program и до end, пожалуйста.

[Stilet]

Полная программа:

var i:integer;begin for i:=12 to 150 do if ((i mod 12)=0) and ((i mod 3)=0) then write(i:5);rеаdln;end;

[svob]

Большое спасибо, с меня +.
Очень благодарен

[ViktorR]

Stilet
Но в условии вроде:

делящая одновременно на 12 и 3 эти числа.

или у меня что-то с языком?
К тому же, если делится на 12, то и на 3 будет делиться


Что-то тут ...

[svob]

Пишу в точности с выданном мне заданием :
Составьте программу которая выводит на экран числа из диапазона от 12 до 150, делящая одновременно на 12 и 3. // Задание из 9-го класса

[svob]

Сообщение от Stilet

Полная программа:

var i:integer;begin for i:=12 to 150 do if ((i mod 12)=0) and ((i mod 3)=0) then write(i:5);rеаdln;end;

Ответ программы - 12 24 36 48 60 72 84 96 108 120 132 144, и не совсем понимаю зачем "readln" нужен в этой программе и что там вводить. Поясните если не затруднит

[BDA]

ViktorR, скорее всего, имелось ввиду "делящаяся".
И правда, проверять деление на 3 в ДАННОЙ задаче не нужно
svob, без readln программа сразу завершится, и Вы не увидите результат работы.

[Poma][a]

Вечер добрый.
Давайте уберем ReadLn, что получим? Правильно, программка выведет ответ и успешно завершится, что посмотреть консольку Вы должны будете нажать Alt+F5 или Ctrl + F9. А так ничего нажимать не надо, ответ выводиться Вы что-нить жмете и усё.

end;

мне кажется или там нет '.'?