Предмет: Информатика,
автор: lavelazsnow
составить программу (while) вывода на печать суммы чисел от 1 до 10.
mnv1962:
числа изменяются с каким шагом?
И числа целые?
Пишу сумму целых чисел с шагом 1, т.е. 1+2+...+10
Ответы
Автор ответа:
2
var
a,s:integer;
begin
a:=1;
While a<=10 do
begin
s:=s+a;
a:=a+1;
end;
writeln(s);
end.
a,s:integer;
begin
a:=1;
While a<=10 do
begin
s:=s+a;
a:=a+1;
end;
writeln(s);
end.
Интересные вопросы
Предмет: Русский язык,
автор: asifgizi2008
Предмет: Русский язык,
автор: klichenkodavid
Предмет: Українська мова,
автор: Angelina201723
Предмет: Химия,
автор: Dwintor
Предмет: Другие предметы,
автор: nchnavayan15gmailcom