Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Denair
11.12.2021 23:37 •
Информатика
Дано целое число n(> 0)найдите к=(n+1)^2+(n+2)^2+(n+n)^2
Показать ответ
Ответ:
lizaskiba14072003
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 оценок)
Популярные вопросы: Информатика
izzteleuov
05.04.2021 07:30
Заполнить.. имя объекта компьютер данные об объекте: компьютер-это электронное устройство, предназначенное для компьютер-это система, так как он компьютер-это средство...
daryaladelshhikova
27.08.2021 13:32
Составьте устройство для ввода информации в компьютер из букв: и е м и п с н р...
книга67
27.08.2021 13:32
Одноклеточная амеба каждые 3 часа делится на 2 клетки. определить сколько будет амеб через 3,6,9,12, 24 часа (кумир)...
natali2101
24.11.2022 14:33
Сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте алгоритм, определяющий, через какой промежуток времени первоначальная...
bxanzoda
09.04.2020 11:28
14 из егэ. не сходится какая строка получится в результате применения ниже программы к строке, состоящей из 99 единиц? начало пока нашлось (111) если наш лось (222) то...
Зайченок157895
17.06.2022 12:36
Дано четырехзначное натуральное число a. какое число получится, если в нем поменять местами вторую и последнюю цифры? (программа паскаль)...
shamanka12
17.06.2022 12:36
6. решите систему уравнений: 2^(x+2) (бит) = 8^(y-5) (кбайт) 2^(2x-1) (мбайт) = 16^(x-3) (бит)...
adadov12345
18.10.2022 08:42
Составить программу на паскале. вася делает за а часов, в минут, с секунд. ему необходимо выполнить n . сколько времени он потратит?...
artiom726
21.01.2021 01:57
Укажите которым нельзя разделить одну ячейку на несколько а) нарисовать разделительный линию карндашом в) использовать команду макет = разбить ячейки с) использовать команду...
Kseniamaria
16.12.2022 07:35
Программа должна вывести в одной строке номера элементов массива, равных x , разделив их пробелами. предполагается, что нумерация начинается с единицы. если таких элементов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.