Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bidak03
31.03.2021 05:59 •
Информатика
Напишите программу, которая вычисляет сумму: а) первых n натуральных чисел; б) квадратов первых n натуральных чисел;
Показать ответ
Ответ:
АлексаСветлая
05.10.2020 22:55
Var n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
S:=S+n*n;
WriteLn('б) S = ',S);
End.
0,0
(0 оценок)
Ответ:
gmurzakaevap06yh1
05.10.2020 22:55
A) begin write(seqgen(readinteger(), x -> x + 1, 0).Sum); end.
б) begin write(seqgen(readinteger(), x -> x * x, 1).Sum); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
агтл
21.05.2021 08:04
Составьте программу подсчёта размера оплаты за электроэнергию по показаниями счётчика и тарифу. на вход поступают 3 числа.первое число -- целое число. показания счётчика в квт*ч на...
ilonka20048
21.05.2021 08:04
Синформатикой (python) 8 ! 1. даны n деревьев: дерево 1, дерево 2, дерево 3, и т.д. на каждом дереве дано кол-во листиков. вывести на экран номер дерева и кол-во листиков с максимальным...
EstrWite
21.07.2021 15:43
Решите эти , 98 . язык паскаль. 1,напишите программу, которая в последовательности целых чисел определяет количество двузначных чисел, кратных 5. программа получает на вход целые...
nastyafominto
17.04.2020 17:46
Текст составлен с использованием алфавита мощностью 1024 символов и содержит 800 символов каков информационный объём текста в байтах? Решите...
shamahuligam007
10.09.2021 04:06
2. Опишите модель решения поставленной задачи. a) Входные данные программы b) Выходные данные программы c) Цель проектирования программы d) Назначение программы e) Область применения...
ЭТИРУКИЛОЛ
15.09.2020 07:20
1. реализовать блок-схему возведения числа в степень N. Для положительного и отрицательного числа N 2. реализовать алгоритм нахождения всех целых делителей целого числа (сложность...
Про228лирс
29.08.2020 12:14
Когда была создана первая компьютерная игра Spacewar?...
Данька0007
03.08.2021 06:31
Нужно письменно записать: смысл стих-я родная земля и смысл эпиграфа...
muradir1102
03.08.2021 06:31
Под каким углом к поверхности парты надо расположить плоское зеркало, чтобы получить изображение предмета, лежащего на парте, в вертикальной плоскости? парта наклонена к горизонту...
azul1999
31.07.2022 23:40
In wales will be around three degrees....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
S:=S+n*n;
WriteLn('б) S = ',S);
End.
б) begin write(seqgen(readinteger(), x -> x * x, 1).Sum); end.