Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nadya1801
09.06.2022 04:02 •
Информатика
Составить программу возведения натурального числа в квадрат, используя следующую закономерность: i2 =1 2 2=1+3 з2 =1 + 3 + 5 42=1+3+5+7 п2 = 1 + 3 + 5 + 7 + 9 + . . + 2 п - 1 программа pascal
Показать ответ
Ответ:
NeznaykaVshkole
25.08.2020 09:19
Всё до безобразия просто:
var n:integer; nn:real;
begin
write('Введи число: ');
readln(n);
for var i:=1 to n do nn:=nn+(2*i-1);
writeln(n,'^2=',nn);
end.
0,0
(0 оценок)
Ответ:
kekmanchik
25.08.2020 09:19
Function MySQR(n : Integer) : Integer;
Begin
If n>1 then MySQR:=n+MySQR(n-2) else MySQR:=1;
end;
Var a : Integer;
Begin
Readln(a);
Writeln(MySQR(a*2-1));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Мур214
27.07.2022 23:49
1.примером развлетленного алгоритма является: а) сбор грибов в лесу б) сбор ягод в) движение автомобиля на перекрёстке со сфетофором...
vangok31
28.10.2022 18:34
УМОЛЯ РЕШИТЕ ПРЯМО СЕЙЧАСФОТО ПРИКРЕПЛЕНО...
dmitriyslesarev
27.12.2021 02:25
Впаскале составьте программу вывода на экран таблицы степеней 3n, где 0 ≤ n ≤ 10...
snakesap
09.10.2021 00:00
Невдаха-учень Сашко сів виконувати домашнє завдання і просидів за столом 2 год. З них x хв він чухав потилицю і дивився у вікно,y хв шукав у письмовому столі гумку, щоб стерти у підручнику...
pandaokia
05.10.2021 06:19
Изучите блок схему и определите результат выполнения алгоритма...
makssanchuk
08.05.2020 19:51
Задание 2.алгоритма;Определите значение переменной и после выполненияb;=a/2 * b3* DВ отнете укасите одно целое число - значение переменной а.Задание 3. Дано расстояние в сантиметрах....
lexus56ru
02.08.2021 01:22
Составить сложный план по теме велекобритания всеобщая ...
kpy4
22.10.2021 00:37
Придумати 5 речень і зробити синтаксичний розбір...
DimasStar1
03.12.2022 21:08
По данным рисункам найдите углы 1 и 2 если m||n и 2 в пять раза больше...
ajshshdj
23.11.2022 20:08
Все слова, которые говорил городничий в произведении гоголя ревизор пример: городничий: уже постаревший на службе и и тд)) !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n:integer; nn:real;
begin
write('Введи число: ');
readln(n);
for var i:=1 to n do nn:=nn+(2*i-1);
writeln(n,'^2=',nn);
end.
Begin
If n>1 then MySQR:=n+MySQR(n-2) else MySQR:=1;
end;
Var a : Integer;
Begin
Readln(a);
Writeln(MySQR(a*2-1));
end.