Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
tim1963yt
13.02.2020 03:44 •
Информатика
Решите в паскаль двумя с использованием цикла с параметром и с предусловием. дано действительное число а, натуральное число n. вычислить: p = a (a+1)××(a+n-1)
Показать ответ
Ответ:
SashaPolishuk
08.07.2020 01:43
Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('ответ: ',p);
end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('ответ: ',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alex010203
05.01.2022 15:59
Оперативная память составяет 1536 ячеек,каков объём оперативной памяти?...
NDKinel
31.12.2022 19:25
Нарисуйте ориентированный граф (блок-схему) проверки учителем пачки тетрадей. в систему команд входит: проверить работу; взять тетрадь из пачки; выставить оценку; выяснить, остались...
kirillBruchov
18.02.2022 09:56
7. Продолжите предложение. Совокупность всех программ компьютера - это ... 1) операционная система2) программное обеспечение3) прикладные программы (приложени)...
Костя111113
01.01.2021 22:55
Уровень - синтезсколько останется места на флеш-накопителе семкостью2 гбайт, если на нее записать книгу, в которой 256 страницпо 95 строк и 80 символов в строке? ...
AlexOge
23.12.2022 09:49
Запишите в виде неправильной дроби натуральные числа 4 и 15 со знаменателем , очень...
помогите1165
12.04.2021 11:36
Як розуміти вислів: незворушенний мов Свінкс ....
helphelhelphelplease
18.12.2020 20:23
При ударе разрушаются на правильные кристаллы все вещества ряда: 1 стекло, сахар, поваренная соль 2 медный купорос, хлорид калия, алмаз 3 стекло, смола, пластмасса...
Аркаша2281337
30.05.2021 05:34
әдәбия ЖАЗЫЛЫМ -тапсырма. 12. «Бинго» ойыны. Кім торды тез толтырады? Әр торға кімнің отбасында неше адам, барын жазыңдар. Ол үшін сыныптастарыңнан барынша көбірек сұрастыруға...
нази17
25.04.2020 11:58
Площадь одного поля 207,5 га,а площадь второго поля - на 17 га меньше. Сколько пшеницы собрали с обоих полей,если с каждого гектара первого поля собрали 32,4 ц,а с каждого гектара...
DarkOP
23.06.2021 20:50
ПО ДЕЙСТВИЯМ ОЧЕНЬ !! *-умножение. /-дробь 1),2),3) это примеры, не действия1) (8 4/5-13,8:3 5/6)*12/13=2)1-0,15:(11/12-0,75)=3)8,3-(3 5/12-1 1/3):5/12...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('ответ: ',p);
end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('ответ: ',p);
end.