Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
conyp2005
09.08.2022 16:43 •
Информатика
Составить алгоритм для вычисления суммы чисел от 1 до n
Показать ответ
Ответ:
Malifisen
05.10.2020 08:36
Program n1;
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Rukisha03
11.11.2021 05:04
Али загрузил на свой компьютер 30-дневный пробный антивирус. Нужно ли обновлять лицензию после окончания испытательного срока? Нет, потому что, несмотря на то, что испытательный...
daryaaleksandr2
01.11.2020 05:29
Задание 1 Нарисуй цветок. Выдели его и сделай несколько копий. Раскрась копии в другие цвета, поверни в разные стороны и измени рисунок. Сфотографируй экран и пришли мне или сделай...
санеке
07.02.2023 06:44
Решите задачу.Федор, ученик 8 класса принимал участие в Международной олимпиаде по информатике IOI, познакомился и подружился со Стивеном. Стивен прислал ему сообщение на английском...
KarinaFelton
03.04.2022 02:15
Напишите программу, вычисляющую функцию при x=1, 2, 3, 4, 5, 6, 7, 8, 9, 10 (тремя...
568423984268
02.04.2021 16:12
решить: import math, randomgetDeg = random.randint(0, 360) #Out: 45toRad = math.radians(getDeg) #Out: 0.78как найти Z используя модуль math:Z = tg2( toRad ) + sec2( toRad )...
Nar43
08.10.2021 07:34
по информатике, буду благодарен) Тест по теме: безопасность в сети интернет 1. Что такое сайт? a.Страница, на которой размещён определённый вид информации b.Веб-страница или группа...
yaroslavahl
26.09.2020 02:54
Переобразовать формулы в WORD...
робот66
01.07.2022 04:15
В школе задали код и нужно будет его объяснить, кто написать комментарии к коду #include #include using namespace std; int main() { setlocale(LC_ALL, RUS ); int n, max_i = 0,...
Yulichka0829
19.09.2022 23:52
Які можливості надає користувачу хмарне сховище goоgle диск ? Які оперцації над файлом можна виконувати ?...
artemsuraaye
15.07.2020 09:14
Было проведено 9 запусков программы, при которых в качестве значений переменных ѕиk вводились следующие пары чисел:(1, 1); (5, 8); (6, -12); (5, 5); (3, 11); (-10, -12); (-10,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.