Регистрация
samininav1
06.07.2022 22:30
Информатика
Есть ответ 👍

Помагите кто чем может​

260
476
Посмотреть ответы 1

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

Мама1мама2
Мама1мама2
4,7(65 оценок)

берем цикл от 1 до 50, идем и проверяем все числа на кратность 9, если кратны, то пишем число и добавляем к сумме (и умножаем произведение).

 

var

  sum, mul, i : integer;

begin

    sum : = 0; mul : = 1;

  for i : = 1 to 50 do

    if i mod 9 = 0 then

    begin

      write (i, '   ');

      sum : = sum + i;

      mul : = mul * i;

    end;

  writeln;

  writeln ('sum = ', sum);

  writeln ('mul = ', mul);

end.

Популярно: Информатика