Регистрация
dashadgankozde8z
14.02.2022 16:51
Информатика
Есть ответ 👍

Питон Вычислить сумму четных чисел в интервале от –70 до +20. Выполнить пошаговую компиляцию (трассировку) программы. Решить 3-мя : оператор цикла for; оператор цикла do..while; оператор цикла while.

135
350
Посмотреть ответы 1

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

AloysiuS
AloysiuS
4,8(88 оценок)

program helloworld;

var n: array [1..6] of string;

var i,k,j: smallint;

begin

     

      n[1] : = '1+';

      n[2] : = '2+';

      n[3] : = '3+';

      n[4] : = '4+';

      n[5] : = '5+';

      n[6] : = '6';

     

      k : =  0;

      for i: =1 to 6 do

          if pos('+',n[i]) > 0 then k : = k + 1;

 

      if k> 4 then

              for i: =1 to 6 do

              begin

                    j : = pos('+',n[i]);

                    if j > 0 then

                    begin

                      delete(n[i],j,1);

                      insert('=',n[i],j);

                    end;

              end;

 

      for i: =1 to 6 do

          writeln(n[i]);

 

end.

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