• 
  • 22 February 2021
  Информатика
  • Автор: gang70

  

  напишите программу в pascal
  Задаются границы диапазона
  найти сумму тех чисел которые четные

• 
  • 22 February 2021
  • Ответ оставил: pryhodzichdavid

  var a,b,i,z,x:integer;

  q:array [1..20] of integer;

  begin

   write('Верхняя граница='); readln(a);

   write('Нижняя граница='); readln(b); x:=a-b; randomize;

   for i:=1 to 20 do

   begin  

     q[i]:=random(x)+b;

     write(q[i],' ');

     if (q[i]mod 2=0) then z:=z+q[i];

   end;

   writeln;

   write('Сумма четных чисел=',z);

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (25.02.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы