ЖА
Жаннулька Анисимова
помогите с программированием (while паскаль)
ввести с клавиатуры А>В. вывести экран числа из этого интервала котрые делятся нацело на 3 и 5.
ввести с клавиатуры А>В. вывести экран числа из этого интервала котрые делятся нацело на 3 и 5.
var a, b: integer;
begin
readln(a);
readln(b);
if A < B then
writeln('Wrong values were entered!') else
while b<>a do
begin
if b mod 3 = 0 then write(inttostr(b) +' ') else
if b mod 5 = 0 then write(inttostr(b)+' ');
b:=b+1
end;
end.