Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Владимир328
22.03.2022 12:01 •
Информатика
Дано целое число n(> 0)найдите к=(n+1)^2+(n+2)^2+(n+n)^2
Показать ответ
Ответ:
Roman07156
07.10.2020 07:45
Var N, K: integer;
begin
write('N = '); readln(N);
if N > 0 then
begin
K := sqr(N + 1) + sqr(N + 2) + sqr(N + N);
writeln('K = ', K);
end
else
write('N меньше или равно 0');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
TastyDonut
22.09.2020 08:25
Фиксация режима ввода прописныхбукв/отказ от фиксации этого режима...
gamer3106
22.09.2020 08:25
Dvd емкость , скорость обмена данными...
miroororoe01
22.10.2021 18:41
Переведите числа в десятичную систему счисления: а)1100111011(2) б)671(8) в)41а(16) г)1001000(2) д)413(8) е)118(16) числа в скобках это степени...
ejulere
22.10.2021 18:41
5имён файлов которые подходящие по шаблону kam*...
smirnovy
22.10.2021 18:41
Информатика: технология передачи информации...
enc0r3
08.05.2021 09:47
Какие есть опасности при работе в Интернете? Урок 1 Вставь пропущенные слова.тветы:информационная безопасность 2)целостность данных 3) конфиденциальность данных 4) нетикетобеспечение...
cr8s
26.04.2021 09:37
Информатика Питон 8 класс функции за правильный ответ Напишите логическую функцию, которая определяет, является ли переданное ей число совершенным, то есть, равно ли оно сумме своих...
ququqhbqha
17.02.2023 08:04
в питоне написать программу, которая генерируте два число в диапазоне от (1,50). Если сумма этих чисел больше или равна 100, вывести сообщение Экзамен сдан! , иначе Экзамен не сдан....
denisgolubev1
25.10.2020 13:08
Реши задачу. (ответ округли до целых). Сколько секунд потребуется модему, передающему сообщения со скоростью 128000 бит/с, чтобы передать сообщение объёмом 238 Кбайт?...
llovepet20
17.09.2021 23:35
Для какого из узказанных згачений числа x истиннл высказывание (x 1)и(x 2) и(xне равно 3)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('N = '); readln(N);
if N > 0 then
begin
K := sqr(N + 1) + sqr(N + 2) + sqr(N + N);
writeln('K = ', K);
end
else
write('N меньше или равно 0');
end.