Вычеслить сумму целых чисел в диапазоне от -5 до 500 изменяющихся с шагом 5

Question

76

в избранное ссылка

Знаете ответ?

vensign · Accepted Answer

86

vensign

06 апреля 2023

Program zadacha; var i,s: integer; begin s: =0; i: =-5; while (i <= 500) do begin s: =s+i; i: =i+5; end; write (s); end.

комментировать

в избранное ссылка отблагодарить