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