tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найдите сумму всех натуральных
Найдите сумму всех натуральных чисел на промежутке от 1 до n. число n вводится на клавиатуре.составьте на паскале с циклом while
anay3
2 05.06.2019 17:40
2
Ответы
fyz070504
06.07.2020 06:49
Var
n,i,sum:integer;
begin
readln(n);
sum:=0;
i:=0;
while i<n do
begin
i:=i+1;
sum:=sum+i;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Mashoo4rik
18.09.2019 11:30
Что такое и что такое интернет-маркетинг...
iuhagng
18.09.2019 11:40
Написать программу, которая будет подсчитывать сумму натуральных чисел от 20 до 50 (в кумире)...
Bonta
12.12.2020 15:31
с Информатикой,нужно более 12 программ которыми пользуетесь 1)название программы 2)вид По 3)назначение программы...
homka16072006
12.12.2020 15:31
Запишите полное имя файла, если: 1. расширение файла – bmp 2. папка второго уровня – РИСУНКИ 3. папка первого уровня – 7КЛАСС 4. имя файла – горы 5. диск – D:...
severina3
12.12.2020 15:33
Задание 1. Пользователь вводит три числа. Программа выводит на экран самое большее из них и самое меньшее.Задание 2. Программа выводит на экран меню, в котором...
IrinaEropolova
12.12.2020 15:35
Что означает команда print на питоне?...
abekeev
15.08.2019 03:30
4предложения на компьютерном языке (11000000 и тд)...
nadjabolkina
15.08.2019 03:40
[код инструмента] в садовом домике лежат 180 инструментов. существует два кодирования каждого инструмента и сохранения кода в памяти: каждому инструменту присваивается...
superbogdanova
15.08.2019 03:40
Утворити прислівник від слова читання...
ruslan2003185
24.10.2019 11:27
Запишите в десятичной системе счисления xliv...
Популярные вопросы
Разность двух чисел равна 3 а сумма 15 . Во сколько раз первое...
1
L Теанс (то, что Слово золотые - имя прилагательное, кото-адо...
3
Берілген үш тапсырманың бірін таңдап, жазба жұмысын орындаңыз....
2
Випиши з вірша слова зі знаком м якшення. Вірш дивна звичка...
1
Адание 4.Дана логическая схема. Построить соответствующее ей...
3
Прочитайте и напишите ответы на вопросы. My name s Heggy, I...
3
Причины политических реформ в Великобретании...
3
Добрые людиии надо^ ^...
1
Найди двусоставное предложение а приближённые пески делают темными...
1
Соедините пары сочетание двух слов и образование от них сложное...
2
n,i,sum:integer;
begin
readln(n);
sum:=0;
i:=0;
while i<n do
begin
i:=i+1;
sum:=sum+i;
end;
writeln(sum);
end.