1 Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.
var a:integer;
begin
a:=35;
repeat
if ((a mod 3)=0) and ((a mod 6)=0) then
write(a,' ');
a:=a+1;
until a>117;
readln();
end.
Вывод консоли:
36 42 48 54 60 66 72 78 84 90 96 102 108 114
1 Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ).
1 Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.