Вычислить сумму натуральных чисел не превосходящую заданное число а, while
bigarnastia
3
31.08.2019 00:20
2
Другие вопросы по теме Информатика
Король344
17.09.2019 09:40
Kniga4001
14.04.2020 14:20
FACE229
14.04.2020 14:20
Ангелина0611
14.04.2020 14:20
Мамкинс
18.12.2020 22:59
violettakot01
04.03.2021 11:30
olgagolikova2
04.03.2021 11:30
Hikary134
04.03.2021 11:30
Популярные вопросы
- 3. Прочитай.Это письмо Юрия Гагарина детям.«Хорошо учитесь! Путь к знаниям...
2 - Запишіть речення. Надпишіть, які сполучники які — складні. У дужках зазначте,...
1 - Найти количество сторон правильного многоуголника...
3 - Темір минералдарының химиялық формулаларын тексер. Олардың әрқайсысындағы...
2 - нужно все понятно(дано,найти,решение,ответ - во 2 части)...
3 - (6x):5/11=11/5 :10/3 решите уравнение...
2 - Таблица по истории 7 класс. Народы россии в XVII в. Название народа.Территория...
1 - Какие чувства в главе «Переправа» испытывали русские бойцы в момент, когда...
1 - Сторони основи прямокутного паралелепіпеда дорівнюють 3см і 4см. Діагональ...
3 - Реши орфографические задачи, правильно переписав слово или слово с частицей...
2
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.