Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ReyLiv
04.09.2020 15:29 •
Информатика
Дано натуральное n.вычислить y=1*3*(2n-1).программа в паскаль абс.
Ответ:
dyakyla
01.10.2020 20:00
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
oksanapolio
01.10.2020 08:15
Система счисления. 3654 из 10 в 8 систему счисления. с подробностью )...
Kpoper772
16.01.2021 19:18
Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена). ниже представлен...
aminaabdullaeva
02.12.2022 16:25
Кчему равен ответ программного цикла a=5, b=4, a=b+4...
zenalubimova
30.11.2021 09:31
2-3 примера схем,с которыми вы сталкиваетесь в повседневной жизни. информационными моделями каких объектов являются эти !...
kveresgova
01.11.2021 11:57
Паскаль напишите программу, содержащую процедуру print, которая выводит последовательность: aababcabcd abc xyz...
Asker1231
25.05.2022 13:47
Исполнитель кузнечик, находящийся на числовой оси над числом 0, должен перекрасить квадратики над числами о, 2, 4 и 6...
ktukhfatulin1
02.03.2023 08:14
Жам Что такое датчик цвета? Напиши наименования режимов датчика цвета....
райымбек42
05.02.2020 18:21
Кто составит синквейн к слову домра тому 27 !...
cook16
05.02.2020 18:21
A/b равно 1,5 найдите 3b/a варианты ответов 3 4 0.8 2 2,7...
VankaOchevidnost135
05.02.2020 18:21
Шесть предложений со словом пианино в разных падежах.!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.