Question

Доделать
program suma;
var i, a, s: integer;
begin
writeln ('Введи ціле число');
read (a);
s:=0;
for i:=1 to a do
begin
s:= (допиши формулу)
end;
i:=i+1;
write ('Сума чисел від 1 до ', a, 'дорівнює ', s);
end.

Answer 1

Программа на языке Pascal вычисляет сумму целых чисел от 1 до введенного числа. Для этого нужно дополнить формулу в теле цикла for:

program suma;

var

i, a, s: integer;

begin

writeln('Введите целое число');

readln(a);

s := 0;

for i := 1 to a do

begin

s := s + i;

end;

writeln('Сумма чисел от 1 до ', a, ' равна ', s);

end.

Программа запрашивает у пользователя целое число, затем с помощью цикла for вычисляет сумму целых чисел от 1 до введенного числа, и выводит результат на экран.