Ввести 8 случайных чисел в интервале от 15 до 45 и найти сумму и количество чисел кратных 3.

208

247

Посмотреть ответы 2

Ответы на вопрос:

EM12EM3

Информатика

4,7(56 оценок)

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

Выводим результат

Iraa26

Информатика

4,8(28 оценок)

Program hhh54; var a,b,c,d: longint; begin read (a,b,c,d); if ((a+2=c) and (b+1=d)) or ((a+2=c) and (b-1=d)) or ((a+1=c) and (b-2=d)) or ((a+1=c) and (b+2=d)) or ((a-2=c) and (b-1=d)) or ((a-2=c) and (b+1=d)) or ((a-1=c) and (b-2=d)) or ((a-1=c) and (b+2=d)) then write ('yes') else write ('no'); end.