Срочно решить задачу в Паскаль
Теория чисел
Input file: стандартный поток ввода Output file: стандартный поток вывода Time limit: 1 секунда Memory limit: 256 Мбайт
Оксана любит изучать целые числа и совсем недавно она обнаружила несколько интересных – таких, что каждое из них делится без остатка сразу на 2, 3 и 7. Однако для более подробного изучения ей нужно узнать все такие числа на некотором отрезке [a; b]. Помогите найти их или сообщите, что таких чисел на заданном отрезке нет. Input В единственной строке находится два целых числа a и b – границы отрезка (-105 ≤ a ≤ b ≤ 105).
Output Выведите все интересные числа из отрезка [a; b] по одному в каждой строке в порядке возрастания. Если таких чисел нет, выведите строку «Fail» без кавычек. Examples Пример входных данных Пример выходных данных
50 200
84 126 168
30 40
Fail
Примечание: рекомендуется использовать тип LongInt вместо Integer, если вы пишете на Pascal или Delphi
var
i, a, b: longint;
begin
Readln(a, b);
for i := a to b do if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 7 = 0) then
Writeln(i) else writeln(' таких чисел на заданном отрезке нет');
end.
var i,a,b:longint;
Begin
Readln(a,b);
for i:=a to b do if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 7 = 0) then Writeln(i);
end.