Составить программу нахождения суммы чисел -5,-2,1,4...10.Паскаль

29 Фев 2020 в 19:41
153 +1
0
Ответы
1

var a,s: integer;

begin

s:=0;

a:=-5;

repeat

s:=s+a;

a:=a+3;

until a>10;

writeln(s);

end.

29 Фев 2020 в 23:53
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир