Предмет: Информатика,
автор: nyanmevis
Дан массив К из 15 целых случайных чисел из интервала [0,50]. Найти в массиве: к5 – количество чисел, кратных 5, к3 – количество чисел, кратных 3.
nyanmevis:
Программа паскаль
Ответы
Автор ответа:
1
const n=15;
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5:=0; k3:=0;
for i:=1 to n do
a[i]:=random(51);
for i:=1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5:=0; k3:=0;
for i:=1 to n do
a[i]:=random(51);
for i:=1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: timursele
Предмет: История,
автор: sarovartem179
Предмет: Литература,
автор: sofiasavka043
Предмет: Математика,
автор: megki
Предмет: Право,
автор: mviktoria868