Регистрация
shevchenkok1
24.08.2022 10:45
Информатика
Есть ответ 👍

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

242
267
Посмотреть ответы 2

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

alenka0810
alenka0810
4,7(98 оценок)

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.

Cammelia
Cammelia
4,5(89 оценок)
Var   a: array of byte; //char?   b, d: integer; begin   readln(b);   setlength(a, length(inttostr(;       for d : = 0 to length(a) - 1 do   begin     a[d] : = b mod 10;     b : = b div 10;   end;       for d : = 0 to (length(a) - 1) do     write(a[d], ' '); end. 

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