Предмет: Информатика,
автор: shit30
Найдите сумму чисел от a до b pascal
Ответы
Автор ответа:
1
check comment ( pls delete )
сумму всех чисел от a до b
Ну... Или я что-то не правильно понял? Поясни..
a = 1, b = 5, Sum = 1 + 2 + 3 + 4 + 5
А. Понял. Оке. Сорян.
Заведите переменную Sum, вставьте цикл от a до b и просуммируйте
var a, b, Sum, i: integer;
begin
Read(a, b);
Sum := 0;
for i := a to b do
Sum := Sum + i;
Write(Sum)
end.
begin
Read(a, b);
Sum := 0;
for i := a to b do
Sum := Sum + i;
Write(Sum)
end.
А. Ля. Так. Ладно, вы уже кинули ответ. Поэтому.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: varvaraivanova723
Предмет: Математика,
автор: ilana122203
Предмет: Математика,
автор: anna914
Предмет: Алгебра,
автор: Аноним
Range(ReadInteger, ReadInteger).Sum.Println
end.