tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу которая
Напишите программу которая вычисляет сумму первых n натуральных чисел через оператор while
shurik23021983
1 20.07.2019 05:30
0
Ответы
Aruuuuuuuu
03.10.2020 08:30
Var
n,c:integer;
Begin
Write('Введите число ');
Readln(n);
Write('Сумма чисел от 1 до ',n,' равна ');
While n<>0 do Begin
c:=c+n;
n:=n-1;
End;
Write(c);
End.
ПОКАЗАТЬ ОТВЕТЫ
Арте2281337
03.10.2020 08:30
Var s,i,n:integer;
begin
readln(n);
//цикл while
s:=0;
i:=0;
while i<n do begin
i:=i+1;
s:=s+i;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lerahmru
09.12.2021 09:53
информатика буду очень благодарен...
коля564
09.12.2021 09:49
Выбрать пару объектов, которые не находятся в отношении «объект – модель»: мяч – шар; фрукт – муляж фрукта из воска ; самолет – птица; платье – выкройка....
rodionmihailof
09.12.2021 09:49
Вопросы для размышления 1. Какие команды нужно выполнить для создания нового файла? 2. Какова важность управления настройками изображения? 3. Сколько групп инструментов...
сорин8888
19.12.2020 16:21
1. Даны множества А — {1, 2, 3, 4, 5, 6, 7} и В = {4, 6, 8}. Перечислите элементы, образующие множество С=А∪В. Изобразите множества А, В и С графически. Ребят только...
карамакфин
19.12.2020 16:18
Придумайте своего исполнителя определите его среду систему команд выполнения каждой команды...
polinalopareva1
12.06.2019 16:10
Перевести 3072 байта в биты 256 бит в байт 2048 байт в килобайт 2 мегабайт в байт 12288 бит в килобайт...
YDA2007
12.04.2021 12:45
Квартиры В доме несколько подъездов. В каждом подъезде одинаковое количество квартир. Квартиры нумеруются подряд, начиная с единицы. Может ли в некотором подъезде...
muckanvicktoria
08.05.2021 20:16
7. Звукозапись длительностью 90 сек. сохранили в формате моно (1 канал), с частотой дискретизации 16 кГц. Размер файла оказался равным 4000 Кбайт. Сжатие данных...
MrNeik1
08.05.2021 20:15
Напишіть програму, яка моделює роботу наступного автомату: Автомат отримує на вхід тризначне число і створює нове число наступним чином: а) обчислює суми першої...
Eva345678
08.05.2021 20:14
РЕШИТЕ С ОБЪЯСНЕНИЕМ в ИТ-компании работают 90 сотрудников. 55 сотрудников знают Java, 54 сотрудника - Python, 36 сотрудников - C++. Известно, что 51 сотрудник...
Популярные вопросы
16. Вставьте пропущенное слово: форма оплаты труда, которая...
1
Подскажите самый дешёвый комп для игры в RUST....
2
Тіло падає з невеликої висоти на планеті з прискоренням вільного...
1
Контрольная работа по теме: Литература ХХ века (тест). Во Кто...
2
A) 4c^3d-9cd^3= b) 6x^2y^2-24x^2z^2= ^ - степень...
3
ВА.Определите систематическое положение скорпиона, расположив...
3
На климат какой территории, обозначенной на карте цифрами наибольшее...
2
Пасажирський потяг за 4год пройшов ту саму відствнь, що і товарний...
1
37/9-х=1 3/5+2 2/15 розв язки рівняння...
3
Билет№ 1 Территория, население и хозяйство России в начале XVI...
1
n,c:integer;
Begin
Write('Введите число ');
Readln(n);
Write('Сумма чисел от 1 до ',n,' равна ');
While n<>0 do Begin
c:=c+n;
n:=n-1;
End;
Write(c);
End.
begin
readln(n);
//цикл while
s:=0;
i:=0;
while i<n do begin
i:=i+1;
s:=s+i;
end;
writeln(s);
end.