Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
akitaeva1
28.07.2020 16:34 •
Информатика
Написать программу на паскале и сделаь к ней блок схему 3/2+9/4+27/16+…x/y
Ответ:
МиллкаВах
07.10.2020 16:49
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var (a,b):=(3,2); var p:=0.0;
for var i:=1 to n do
begin
p:=p+a/b;
a:=a*3; b:=sqr(b);
end;
Writeln('Сумма=',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Гыгуль
20.12.2020 21:18
Яке призначення службового програмного забезпечення? A Гра в комп ютерні ігри Перевірка й покращення роботи складових комп ютера й комп ютерних програм Виконання необхідних...
boykodiana57
07.06.2023 11:02
Как сделать вывод флагов многостроничным colors = [ red , green , blue ]flag = [ | .join((x, y, z)) for x in colors for y in colors for z in colors if x == red ]print(flag)...
LionesBastia
23.06.2022 05:59
Які дії слід виконати,щоб підготувати компютер до роботи?...
Roman07156
30.05.2021 21:28
Составьте схемы состава следующих объектов аппаратное обеспечение компьютера...
маняня4
30.05.2021 21:28
Существенным будем называть такое свойство которое наиболее важно для нас в данной ситуации...
Timurrovt456
30.05.2021 21:28
Св программе qbasic .вот : дано трёхзначное число,определить количество единиц,десятков и сотен...
olgavish761
19.11.2020 02:08
Требуется подсчитать, на сколько минут раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут....
Tumkanator
06.03.2021 13:52
Основные компоненты компьютера сообщение !...
asyasing
06.03.2021 13:52
Втаблице записаны названия 18 компьютерных клавиш....
sargisxachatry
06.03.2021 13:52
Ввести четырехзначное целое число и определить яявляется ли число перевертышем( такими например являются числа 6666 и 3223)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var (a,b):=(3,2); var p:=0.0;
for var i:=1 to n do
begin
p:=p+a/b;
a:=a*3; b:=sqr(b);
end;
Writeln('Сумма=',p);
end.