Введите положительное число A. Найдите сумму всех натуральных чисел из промежутка [1,A]. напишите на паскале плз.

Program aga;
var i, sum,a : integer;
begin
writeln(‘Введите А: ‘);
readln(a);
for i := 1 to a do
     sum := sum + i;
writeln(‘Сумма равна: ‘, a);
end.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Adblock
detector