Введите положительное число A. Найдите сумму всех натуральных чисел из промежутка [1,A]. напишите на паскале плз.
Введите положительное число 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.
Не нашли ответ?
Похожие вопросы