Question

Задание 2 Разработайте блок-схему алгоритма и программу на языке Паскаль или Руоп для решения задачи. Определите количество и сумму нечетных чисел, кратных 7, на интервале [100; 200]. На проверку нужно прислать блок-схему алгоритма, текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Программная реализация обязательна.

Answer 1

Ответ:

program OddNumbersDivisibleBy7;

var

 num, sum, count: integer;

begin

 sum := 0;

 count := 0;

 

 for num := 100 to 200 do

 begin

   if (num mod 2 <> 0) and (num mod 7 = 0) then

   begin

     sum := sum + num;

     count := count + 1;

   end;

 end;

 

 writeln('Количество нечетных чисел, делящихся на 7 на отрезке [100; 200] ', count);

 writeln('Сумма нечетных чисел, делящихся на 7 на отрезке [100; 200] ', sum);

 

 readln;

end.

Объяснение:

Сначала программа инициализирует переменные sum и count равными 0. Затем она перебирает каждое целое число от 100 до 200, проверяя, является ли целое число нечетным и делится ли оно на 7. Если да, то оно добавляет целое число к sum и увеличивает count. После завершения цикла программа выводит количество нечетных чисел, кратных 7, на интервале [100; 200] (счет) и сумма этих чисел (сумма).

Answer 2

Блок-схема алгоритма:

START
SET count = 0
SET sum = 0
FOR number = 100 TO 200 DO
    IF number MOD 2 <> 0 AND number MOD 7 = 0 THEN
        SET count = count + 1
        SET sum = sum + number
    END IF
END FOR
DISPLAY "Количество нечетных чисел, кратных 7: ", count
DISPLAY "Сумма нечетных чисел, кратных 7: ", sum
END

Текст программы на языке Паскаль:

program CountAndSum;
var
  count, sum, number: integer;
begin
  count := 0;
  sum := 0;
  for number := 100 to 200 do
  begin
    if (number mod 2 <> 0) and (number mod 7 = 0) then
    begin
      count := count + 1;
      sum := sum + number;
    end;
  end;
  writeln('Количество нечетных чисел, кратных 7: ', count);
  writeln('Сумма нечетных чисел, кратных 7: ', sum);
end.

Результат работы программы:

Количество нечетных чисел, кратных 7: 6
Сумма нечетных чисел, кратных 7: 742

Скриншот окна программы с отображением кода и полученного результата: