Question

Составить программу и блок схему (pascal). Найти сумму от 1 до Р кратное 3

Answer 1

Ответ:

Объяснение:

var

p,i,s:integer;

begin

readln(p);

s:=0;

for i:=1 to p do  

if i mod 3 =0 then s:=s+i;  

writeln (s);  

end.

Answer 2

Для нахождения суммы всех чисел от 1 до P, кратных 3, можно использовать следующую программу на языке Pascal:

pascalCopy code
program SumOfMultiplesOfThree;

var
  P, sum, i: integer;

begin
  writeln('Введите значение P:');
  readln(P);
  
  sum := 0;

  for i := 1 to P do
  begin
    if i mod 3 = 0 then
      sum := sum + i;
  end;

  writeln('Сумма чисел от 1 до ', P, ', кратных 3, равна ', sum);
end.

Пользователь вводит значение P, а программа затем находит сумму всех чисел от 1 до P, кратных 3, и выводит результат на экран.

Блок-схема будет выглядеть примерно так:

luaCopy code
+-----------------------+
|   Введите значение P  |
+-----------+-----------+
            |
            V
       +----+-----+
       | P = input |
       +----+-----+
            |
            V
       +----+-----+
       | sum = 0   |
       +----+-----+
            |
            V
       +----+--------+
       | i = 1       |
       +----+--------+
            |
            V
       +----+--------------+
       | i <= P ?          |
       +----+--------------+
            |
           / \
          /   \
    +----+     +-----+
    | i mod 3 = 0 ?  |
    +----+------------+
         |
        / \
       /   \
  +----+     +-----+
  | sum += i       |
  +----+------------+
         |
         V
   +-----+-----+
   | i += 1   |
   +-----+-----+
         |
         V
   +-----+--------------+
   | Вывести результат  |
   +-----+--------------+

Обратите внимание, что в цикле мы проверяем, является ли текущее число i кратным 3 с помощью условия if i mod 3 = 0. Если да, то добавляем его к сумме sum. Цикл продолжается, пока i не станет больше P.