Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aiau2004
14.10.2021 20:55 •
Информатика
Програмирование .паскаль.цикл корень3+корень6+корень9+ надо написать программу
Показать ответ
Ответ:
Tringt
24.09.2020 07:55
//Pascal ABC.NET v3.1 сборка 1172
Var
i,n:integer;
r:real;
begin
readln(n);
for i:=1 to n do
r:=r+sqrt(3*i);
writeln(r);
end.
Пример ввода:
3
Пример вывода:
7.18154055035206
0,0
(0 оценок)
Популярные вопросы: Информатика
chiprianv1
26.05.2020 15:35
Составьте кластер на тему операционная система. Задачи ОС ....
нюра55587
07.01.2021 15:32
Отметь точки на по теме «система коордипеть точки на координатной плоскости. соедините точки по порядку.no1(0, 9), (3, 13), (7, 10), (10, 12), (13, 11), (12, 13), (10,...
andreevik2003
01.10.2021 16:01
Укажите наименьшее целое значение А, при котором выражение (y + 3x A) ∨ (x 20) ∨ (y 40) истинно для любых целых положительных значений x и y. 2. Укажите наименьшее целое...
tyrone12
08.11.2022 13:04
1. Определите, что будет выведено на экран при выполнении программы при значениях a и b: (5, 5); (20, 20); (20, 10). Program logika; var a, b : real; x : boolean; begin...
Elizaveta1236963268
22.06.2022 01:02
Упражнения 1. Запишите, какие фигуры можно получить после выполнения следу- ющих действий: а) на панели инструментов выбирается \; б) с центра рабочего поля в левую сторону...
semenshchiptso
23.10.2022 11:32
Здравствуйте Пример 2. Воспользуемся неполным условным оператором для записи на языке Паскаль рассмотренного в п. 2.4.2 (пример 9) алгоритма присваивания переменной у...
mutsienietse14
07.03.2022 19:31
Сколько раз будет исполнен цикл в фрагменте программы p:=3; repeat p:=p*0.1 until p 0.1;...
MakcaBa
21.04.2022 14:58
нужно выполнить это задание в среде языка Паскаль очень надо, я ноль в информатике ...
fomicheva3ket
30.10.2022 19:20
Алгоритм всегда приводит к результату через конечное, возможно, очень большое, число шагов...
yaanny0304
07.06.2021 22:14
Var s, n: integer; Begin s := 2; For n := 2 to 5 do s := s + n*2; Writeln(s); End. напишите трассировочную таблицу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
i,n:integer;
r:real;
begin
readln(n);
for i:=1 to n do
r:=r+sqrt(3*i);
writeln(r);
end.
Пример ввода:
3
Пример вывода:
7.18154055035206