Найти сумму целых чисел от 100 до 500. Написать программу
Найти сумму целых чисел от 100 до 500. Написать программу
Гость
Ответ(ы) на вопрос:
Гостьvar sum,i:integer; begin sum:=0; for i:=100 to 500 do sum:=sum+i; writeln (i); end.
Не нашли ответ?
Похожие вопросы