Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Мамаева2007
29.05.2023 04:12 •
Информатика
Дано целое число n(> 0)найдите к=(n+1)^2+(n+2)^2+(n+n)^2
Ответ:
lopas12341234
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 оценок)
Популярные вопросы: Информатика
mariy2104
09.02.2022 17:13
1. подсчитать произведение n введенных чисел. (цикл с предусловием) 2. вычеслите разность между суммой четных и суммой нечетных чисел из числового промежутка от...
slava452163525
15.02.2022 17:36
Вычислить среднее арифметическое тех элементов массива, значения которых в интервал от -2 до 10. размерность массива произвольная....
Maks189099
23.10.2021 21:11
Составить ментальную карту.тема информатика...
Milena200516
30.03.2021 22:24
Cформировав двухмерный массив размерностью 10 к 10 присвоить значение 7 элементам, имеющим четные индексы, например el(2)=2, el(8)=8...
danilshcherbin
07.02.2021 18:23
Напишите программу на языке паскаль к уравнению z=|x-x^n|...
Victoria20066002
29.06.2021 08:54
Сочинение около 140 слов Как война отразилась в судьбах главных героев романа Война и Мир...
sofirzhk
02.11.2020 13:26
ИНФОРМАТИКА Сложите все цифры какого-либо числа. Получите новое число, равное сумме всех цифр исходного числа. Продолжайте этот процесс до тех пор, пока не получите...
12346Djigd
17.06.2020 12:49
Название ленты, содержащей инструменты для изменения параметров графических объектов a) Редактирование b) Формат c) Главная d) Рецензирование...
котик957
24.06.2022 20:03
Контрольна з інформатики ❤❤❤...
малика225
14.03.2021 15:42
представь в компьютерной записи, числа: 112 и -150...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.