Предмет:
ИнформатикаАвтор:
cadeaav8program raf105;
var i,sum,pro,a:integer;
begin
writeln('Вводите 5 чисел по очереди');
pro:= 1;
for i:=1 to 5 do
begin
readln(a);
if (a>=100) and (a<=999) and ((a mod 3)=0)
then
begin
sum+= a;
pro*= a;
end;
end;
writeln('Сумма трёхзначных чисел кратных трём: ',sum);
writeln('Произведение трёхзначных чисел кратных трём: ',pro);
end.
Язык PascalABC
Автор:
stacynbdrДобавить свой ответ
Предмет:
АлгебраАвтор:
jamarstrongОтветов:
Смотреть
Предмет:
МатематикаАвтор:
andreawardОтветов:
Смотреть
Предмет:
Английский языкАвтор:
leftycharlesОтветов:
Смотреть