Организовать ввод чисел меньше 1000 подсчитать среди введённых чисел количество чисел кратных 4-х и 3-х чисел. Программа паскаль пж помогите
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад