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.