Question

СРОЧНО ДАЮ МНОГО БАЛЛОВ!!!!!! Напишите программу для вычисления суммы четных чисел от а до с Числа а и с вводятся. Пример для формата ввода и вывода. ВВОД 10 13 19 ВЫВОД 22 20 ПАСКАЛЬ! Надо var, integer, wile и так далее

Answer 1

Ответ:

var a,c: integer;

   summ: integer;

begin

 summ:=0;

 println('Введите число a');

 readln(a);

 println('Введите число c');

 readln(c);

 while (a<=c) do begin

   if (a mod 2=0) then

     summ:=summ+a;

     a:=a+1;

 end;

 a:=a+1;

 println('Сумма четных чисел от ', a, ' до ', c, ' = ');

 print(summ);

end.

Answer 2

Program to Calculate the Sum of Even Numbers

Here's a program written in Pascal that calculates the sum of even numbers between two given numbers, `a` and `c`:

var
  a, c, sum: integer;
begin
  sum := 0;
  write('Enter the value of a: ');
  readln(a);
  write('Enter the value of c: ');
  readln(c);
  
  while a <= c do
  begin
    if a mod 2 = 0 then
      sum := sum + a;
    a := a + 1;
  end;
  
  writeln('The sum of even numbers between ', a, ' and ', c, ' is ', sum);
end.

This