Ответы на вопрос:
program z1;
var i,a,s,k:integer;
begin
randomize;
s:=0;
k:=0;
write ('Числа: ');
for i:=1 to 8 do
begin
a:=random(31)+15;
if a mod 3 = 0 then
begin
s:=s+a;
k:=k+1
end;
write (a,' ')
end;
writeln;
if k = 0 then write ('Чисел кратных 3 не было')
else
begin
writeln('Количество чисел кратных 3 равно ',k);
write('Сумма чисел кратных 3 равна ',s)
end
end.
Объяснение:
Задаём 8 случайных чисел из интервала [15; 45]
Делаем проверку на кратность 3
Выводим результат
Популярно: Информатика
-
povitnitskiy29.04.2023 18:22
-
HaCT9I308.10.2022 17:47
-
alfiea703.03.2023 02:30
-
малика302409.06.2022 10:02
-
Boom11ok15.06.2022 05:45
-
zlatochkagr11.08.2021 01:48
-
elenak2219.09.2021 11:04
-
denisnickolenko09.06.2021 18:53
-
aslan777323.05.2023 00:37
-
Влада1999373730.10.2021 10:26