Var a,b,i,k:integer; begin readln(a); readln(b); k:=0; if (a>b) or (b>30000) or (a<1) then writeln('данные введены некорректно') else begin for i:=a to b do if i mod a=0 then k:=k+1; writeln(k);end;end.
uses Crt; const n=10; Type Mas=array [1..n] of integer; var P, M: Mas; i: integer;
begin ClrScr; for i:=1 to n do P[i]:=10+random(20); for i:= 1 to n do Write (P[i]:4); WriteLn; WriteLn; for i:=1 to n do if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i]; for i:=1 to n do Write (M[i]:4); ReadLn; end.