Ответ(ы) на вопрос:
(Начало)
|
|Sum:=0;|
|
|for i:= 100 to 999 do begin|
|
|Sum:= Sum + i;|
|
/WriteLn('Сумма чисел = ',Sum);/
|
(Конец)
Какие блоки сам смекнешь надеюсь
Не нашли ответ?
Похожие вопросы