Доделать
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.
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.
More Questions From This User See All
Answers & Comments
Программа на языке 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 до введенного числа, и выводит результат на экран.