Организовать ввод чисел меньше 1000 подсчитать среди введённых чисел количество чисел...

Question

Организовать ввод чисел меньше 1000 подсчитать среди введённых чисел количество чисел кратных 4-х и 3-х чисел. Программа паскаль пж помогите

Answer 1

Const nx =0;var s,i,j,z,n:integer;A,B:array[1..nx] of integer;begin  writeln('Ввести конец интервала n');  n:= ReadInteger();      for i:=1 to n do begin      write(i:3);      if i mod 4 = 0 then  begin z := z +1;A[i]:=i;end;      if i mod 3 = 0 then begin s := s +1;B[i]:=i;end;    end;    writeln;    writeln('Кратных 4 ',z,A);write('Кратных 3 ',s,B);end.