Предмет: Информатика,
автор: Gulbaba
Найдите сумму всех натуральных чисел на промежутке от 1 до n.
Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE
Ответы
Автор ответа:
0
var a,i,n:integer;
begin
readln (n);
a:=0;
whili i<=n do
begin
a:=a+i;
end;
writeln (a);
end.
вроде так
begin
readln (n);
a:=0;
whili i<=n do
begin
a:=a+i;
end;
writeln (a);
end.
вроде так
Интересные вопросы
Предмет: Литература,
автор: RoKsSv
Предмет: Другие предметы,
автор: selez92
Предмет: Алгебра,
автор: klevnoffvi
Предмет: Алгебра,
автор: OtlichnikKaliningrad
Предмет: Алгебра,
автор: Mirinda13