Заполните массив А из 100 элементов последовательно идущими целыми числами от 1 до 100. Напишите программу, которая вычислит в этом массиве количество элементов кратных двум, трем и четырем одновременно.
Помогите пожалуйста
Помогите пожалуйста
Ответ
0
(0 оценок)
0
var
A: array [1..100] of integer;
i, div2, div3, div4: integer;
begin
for i:=1 to 100 do
begin
A[i]:=i;
if A[i] mod 2=0 then
div2:=div2+1;
if A[i] mod 3=0 then
div3:=div3+1;
if A[i] mod 4=0 then
div4:=div4+1;
end;
writeln('Кол-во чисел от 1 до 100');
writeln('кратных 2: ', div2);
writeln('кратных 3: ', div3);
writeln('кратных 4: ', div4);
end.