13.Ввести a и b (<100) и напечатать все числа от 1 до 100, кроме кратных a или b. 14....

Question

13.Ввести a и b (<100) и напечатать все числа от 1 до 100, кроме кратных a или b.<br> 14. Найти, сколько чисел от a до b делятся на 7 или 9 (но не на 7 и 9 одновременно).

15. C клавиатуры вводятся 10 целых чисел. Определить, каких чисел больше: положительных или отрицательных.

16. Напечатать в одну строку все числа от a до b, дважды повторяя числа, кратные 3 или 7.

Answer 1

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
 if (i mod a<>0) and (i mod b<>0) then write(i,' ')
 end.
2)var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
 if (i mod 7=0) xor (i mod 9=0) then k:=k+1; 
write(k) 
end.

3)var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do 
begin 
readln(a);
 if a>0 then pol:=pol+1;
 if a<0 then otr:=otr+1 <br>end; 
if pol>otr then write('Положительных больше'); 
if otr>pol then write('Отрицательных больше')
end.
4) var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
 if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
end.