Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Kamikatze5
22.12.2021 07:44 •
Информатика
Паскаль абс Дан массив из 15 целых случайных чисел на отрезке [1;100]. Найдите произведение 4-го и 12-го элементов.
👇
Увидеть ответ
Открыть все ответы
Ответ:
velvis2050
22.12.2021
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
4,5
(91 оценок)
Ответ:
Unikorn111
22.12.2021
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
4,6
(67 оценок)
Это интересно:
К
Компьютеры-и-электроника
16.10.2021
Как использовать RealVNC: простой и эффективный способ удаленного управления компьютером...
Ф
Финансы-и-бизнес
01.03.2023
10 советов как сэкономить деньги, делая покупки раз в месяц...
К
Кулинария-и-гостеприимство
28.11.2021
Глазурь без сахарной пудры: простой рецепт и секреты идеальной текстуры...
О
Образование-и-коммуникации
08.01.2022
Как выглядеть круто в школьной форме...
Д
Дом-и-сад
20.12.2022
Как заменить прокладку на двери холодильника...
Ф
Финансы-и-бизнес
23.11.2020
Как купить себе частный остров: преимущества и нюансы покупки...
К
Компьютеры-и-электроника
19.03.2023
Как бесплатно создать сайт: подробный обзор лучших сервисов для начинающих...
29.07.2022
Как легко и просто найти общий язык с застенчивым парнем, которого вы почти не знаете...
11.11.2020
Основные принципы полезной агрессии: как стать более уверенным в себе...
П
Питомцы-и-животные
15.09.2020
Как определить гусеницу: основные признаки и виды...
Новые ответы от MOGZ: Информатика
yuriayato
28.04.2023
Запишите в развернутом виде числа 10011(10.с.с) 111001( 10.с.с)...
milenaermolaev
02.11.2021
Алгоритм посадки цветка в горшок...
KekalolQ
05.11.2022
Сообщение для одного может быть новостью,т.е. содержать информацию, а для другова новостью не является т,е. не содержит информации.Т.о.является ли информация субъективной?...
Ķрičтina
04.02.2022
Запиши программу на языке Паскаль для: y= ⎪0,еслиx≤0 x,если0 x(Во второй степени) ,если x 1. (y:3:0) Запусти программу и введи значение x=−3. Число выведенное на...
askarova645
26.10.2022
Введите число - номер месяца(1...12) определите, сколько дней в этом месяце, используя сложные условия. Паскаль!...
lubenkovalilia2
06.04.2021
Сформируйте квадратную матрицу порядка n по заданному образцу. Протестируйте программу для массива, состоящего из 10*10 элементов....
dieric
16.03.2023
Все задачи, только под буквой А Информатика 10 кдасс...
DennisWhitel
29.04.2023
Вычисли сумму чисел в MS Excel. 1. 209; 67; 1388; 51,9...
sarvaryusuf99
06.11.2020
В каком из операторов допущена синтаксическая ошибка: Укажите правильный вариант ответа: 1)For i=1 to 20 do p:=p+1; 2)For I:=10 downto 5 do p:=p+1; 3)While s 3 do...
boriskina2006
25.10.2020
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(1) = 2 F(n) = F(n–1) · F(n–1)+ F(n–1) · n + 3· n, при n 1...
MOGZ ответил
На що пустельник ніяк не хотів погодитись? Що наказав князь? Закінчіть...
Шесть гномов добыли 4320 алмазов. Первый, второй и третий добыли...
Известно, что график функции у = х^2 — ax +4 проходит через точку...
2. Реши падати, а) в летнем лагере 69 детей посещают кру кок английского...
Знайди десяткове наближення частки 5: 9 до сотих. 0,5...
Виписати художні засоби із текста вірша: «Козак Ямайка» Юрій Андрухович...
Розв язати графічним 2х-2у=-5 х-у=3 ...
1 228 Look at the Travel quiz on page 63. Complete clues 7-8 with...
а) для всякого человека ,который живёт в России, особенно дорого...
Установи соответствие между терминами и примерами в онлайн мектепе...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Внимание! Если программа не работает, обновите версию!
Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:
begin
var n:=ReadInteger('n=');
var (s,i):=(0.0,1);
while i<=n do begin
s+=1/Sqr(2*i+1);
i+=1
end;
Writeln('S=',s)
end.
Пример
n= 10
S=0.210988884817533
Гораздо естественнее тут выглядит цикл со счетчиком:
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do
s+=1/Sqr(2*i+1);
Writeln('S=',s)
end.
А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:
begin
Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.