Найдите сумму чисел от a до b pascal

0 голосов
25 просмотров

Найдите сумму чисел от a до b pascal


Информатика (16 баллов) | 25 просмотров
0

begin Range(ReadInteger, ReadInteger).Sum.Printlnend.

Дан 1 ответ
0 голосов

check comment ( pls delete )

(34 баллов)
0

сумму всех чисел от a до b

0

Ну... Или я что-то не правильно понял? Поясни..

0

a = 1, b = 5, Sum = 1 + 2 + 3 + 4 + 5

0

А. Понял. Оке. Сорян.

0

Заведите переменную Sum, вставьте цикл от a до b и просуммируйте

0

var a, b, Sum, i: integer;begin Read(a, b); Sum := 0; for i := a to b do Sum := Sum + i; Write(Sum)end.

0

А. Ля. Так. Ладно, вы уже кинули ответ. Поэтому.