ПОМОГИТЕ! ИНФОРМАТИКА! Найдите сумму чисел от 1 до 50
ПОМОГИТЕ! ИНФОРМАТИКА!
Найдите сумму чисел от 1 до 50
Гость
Ответ(ы) на вопрос:
ГостьN(N+1)/2 50(50+1)/2 50(51)/2 =1275
Гостьvar
i, s: integer;
begin
for i := 1 to 50 do
s := s + i;
writeln('s = ', s);
end.
Не нашли ответ?
Похожие вопросы