Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Seref
30.09.2020 01:22 •
Информатика
Составить программу, которая находит сумму чисел на [5,36] и складывается с произведением первых 5 чисел.
Показать ответ
Ответ:
daria14666
04.10.2020 05:50
Var
n,i,sum,p: integer;
begin
sum:=0;
p:=1;
for i:=5 to 36 do sum:=sum+i;
for i:=5 to 9 do p:=p*i;
sum:=sum+p;
writeln ('otvet=',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
аомоомооар
24.01.2023 11:14
Опишите как и на каких свойствах информации отразятся действия: 1) преднамеренное искажение; 2) помехи; 3) преждевременность; 4) недостаток; 5) старение; 6) изложение...
Dan4ik1111111111
19.10.2020 05:43
Скондитерской фабрики отгружают конфеты в коробках по 7 кг, 5 кг, 3 кг и 1 кг. какое наименьшее количество коробок потребуется для перевозки n килограмм конфет?...
Astr4lis
13.11.2022 03:31
Какие посты можно публиковать в группе класса. p.s там есть учитель....
АннаЛітвін
14.03.2021 01:01
65б нужна ваша Мне нужно решение , как вы получили ответ.Завтра сдавать.упр 4е 5е...
biobiobio
14.03.2021 01:01
Вопрос по информатике. Являются ли функции тождественными? с объяснением если можно >...
Robincona
25.01.2022 05:04
Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =1; while k 11 do begin s: =s+k; k: =k+1;...
adexsio
25.01.2020 19:28
Встановіть відповідність між групами тварин і таксоні...
Artemko1337
25.01.2020 19:28
Какое эмоциональное состояние передает музыка Моцарта симфония 40...
severin4568
24.01.2023 05:22
Буду очень сильно благодарен...
kseniyarigil
01.11.2021 03:32
Укажите сложное предложение с бессоюзной, сочинительной и подчинительной связью между в нем. a) Малыш натянул одеяло так, чтобы закрыть ухо, потому что никогда...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i,sum,p: integer;
begin
sum:=0;
p:=1;
for i:=5 to 36 do sum:=sum+i;
for i:=5 to 9 do p:=p*i;
sum:=sum+p;
writeln ('otvet=',sum);
end.