Question

срочно. дам 50 баллов.

Даны числа на промежутке [A,B]. Вывести на экран через пробел числа, кратные 3 и не кратные 7, в порядке их возрастания. Написать на языке pascal!!!!!!

Answer 1

uses crt;
var a,b,i: integer;
begin
write('a='); readln(a);
repeat
write('b='); readln(b);
until b>a;
for i:=a to b do
if (i mod 3=0) and (i mod 7=0) then write(i,' ');
end.