Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
trenter
28.11.2022 21:38 •
Информатика
Составить программу вычисления сумм от 1 го до n
Показать ответ
Ответ:
alina2007121034
03.10.2020 00:02
Var n,i,s:integer;
begin
write('n=',n);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s=',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ovsjannikova20p01gvg
09.10.2020 21:19
Ввод и вывод чисел Установи соответствие между операторамиввода и типами данных.a=input( Введителогический типданные:)a=int(input( Введитеданные ))вещественноеЧИСЛОa=float(input(...
КириллПос
29.07.2021 20:33
Инфа 7 класс ответь быстрее самостоялка...
бездoмныйБoг
02.03.2020 08:10
1. Чему равно значение переменной P в результате выполнения фрагмента программы: var k,p:integer; beginp:=1; FOR k:=10 DOWNTO 5 DO beginp:=p*k;end;writeln( k= , k:2,...
Ломастер254630
18.04.2023 23:19
Информатика 7 класс самостоятельная работа быстрей...
Ychenikpurple
10.06.2022 04:44
Ввести массив с клавиатуры и проверить есть ли среди элементов массива заданное число...
liza0234
10.06.2022 04:44
Напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет номера двух элементов этого массива, которые...
darya21072005
13.03.2021 23:02
информатика 1.Программа состоит из 2.Главные устройства компьютера 3.Установите соответствие между функциями и памятью, процессором 4.Выберите минимальный набор устройств,...
732tatyana732tatyana
13.03.2021 23:02
1. В папке находится в файлов: arena.doc, bret.doc, iren.dat, iren.doc, iren.docx, ren.docТребуется отобрать только следующие файлыbret.doc, iren.doc, iren.docx, ren.docВыберите...
maks1974
11.03.2021 18:29
Написать код на С++ Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операции деления и взятия остатка от...
Nysha1111
23.07.2021 22:47
Кто понимает информатику - Help me...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n=',n);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s=',s);
end.