Дан массив к из 15 целых случайных чисел из интервала [0,50]. найти в массиве: к5 – количество чисел, кратных 5, к3 – количество чисел, кратных 3.
203
330
Ответы на вопрос:
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.
1. наливаем в 5-ти литровое ведро воду 2. выливает в 9-ти литровое (в нем получается 5 литров) 3. наливаем в 5-ти литровое ведро воду 4. выливает в 9-ти литровое (в нем получается 9 литров), а в 5-ти литровом остается 1 литр "лишний!
Популярно: Информатика
-
09847315.03.2021 03:18
-
Krowly13.09.2022 14:05
-
Asyu66602.07.2020 20:38
-
antoxor10.02.2021 09:59
-
nina1986212.11.2020 13:40
-
melisa200726.03.2021 15:34
-
Мне0нужна0помощь07.07.2021 02:29
-
nastyabodrova123.04.2020 10:14
-
sofkabovs19908.01.2021 15:20
-
alina20012028.07.2021 01:41