Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
коля860
11.07.2021 15:29 •
Информатика
Составить программу для вывода квадратных корней из чисел от 1 до 20
Показать ответ
Ответ:
karolina210
20.08.2020 07:16
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
Range(1,20).Tabulate(x->sqrt(x)).Println(NewLine)
end.
Результат
(1,1)
(2,1.4142135623731)
(3,1.73205080756888)
(4,2)
(5,2.23606797749979)
(6,2.44948974278318)
(7,2.64575131106459)
(8,2.82842712474619)
(9,3)
(10,3.16227766016838)
(11,3.3166247903554)
(12,3.46410161513775)
(13,3.60555127546399)
(14,3.74165738677394)
(15,3.87298334620742)
(16,4)
(17,4.12310562561766)
(18,4.24264068711928)
(19,4.35889894354067)
(20,4.47213595499958)
Традиционное решение
var
i:integer;
begin
for i:=1 to 20 do Writeln(i:2,sqrt(i):16:12)
end.
Результат
1 1.000000000000
2 1.414213562373
3 1.732050807569
4 2.000000000000
5 2.236067977500
6 2.449489742783
7 2.645751311065
8 2.828427124746
9 3.000000000000
10 3.162277660168
11 3.316624790355
12 3.464101615138
13 3.605551275464
14 3.741657386774
15 3.872983346207
16 4.000000000000
17 4.123105625618
18 4.242640687119
19 4.358898943541
20 4.472135955000
0,0
(0 оценок)
Популярные вопросы: Информатика
mytaevafati
08.10.2021 03:33
Є шість комп’ютерів об’єднаних в локальну мережу. Один із комп’ютерів – сервер БД. Побудуйте схему зв’язків між комп’ютерами при використанні файл-серверної технології роботи...
angelenok1840
16.08.2022 12:44
1. Как вы понимаете «тип данных»? 2. Какие типы данных вам известны? 3. Напишите код на языке Python (скрин отправить) Фраза: Моя любимая молодая столица Астана...
Рашида0202
19.10.2022 22:11
скорость передачи данных через некоторое соединение равна 2048 000 бит/с Через данное соединение передают файл размером 1000 кбайт...
marinaboarskaa41
08.09.2022 19:21
Какие качества нужны, чтобы стать хорошим специалистом? Как ты понимаешь высказывание: «Самая трудная профессия – быть человеком»? Выразите свои мысли в 6–7предложениях. Выход...
1990200827
07.02.2021 18:03
Adobe premiere pro бағдарламасында музыка косу және қырку өтініш айтп жберңздерш...
Вадим8383
01.10.2020 16:53
постройте таблицы истинности для следующих логических выражений b & (a \/ ā)....
48385
09.02.2023 11:16
Перед домом построили забор. забор держится на s столбах, расстояние между столбами составляет r метров. какова длина забора (d)?...
duwie
05.11.2020 11:14
Станок производит z заготовок за 1 час. сколько минут нужно машине, чтобы приготовить k заготовок?...
данилка125
23.02.2023 17:37
2. 9. Вычислите: 3 2 1) 17 5 2) 32 12 11 9 3) 20 15 28 14 + 21 5) 3 25 13 ) 4 16 7) 531 31 6 48...
xXNASTYXx
09.02.2020 18:18
Что значит сиіп жат (сиіп жатыңдар)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Range(1,20).Tabulate(x->sqrt(x)).Println(NewLine)
end.
Результат
(1,1)
(2,1.4142135623731)
(3,1.73205080756888)
(4,2)
(5,2.23606797749979)
(6,2.44948974278318)
(7,2.64575131106459)
(8,2.82842712474619)
(9,3)
(10,3.16227766016838)
(11,3.3166247903554)
(12,3.46410161513775)
(13,3.60555127546399)
(14,3.74165738677394)
(15,3.87298334620742)
(16,4)
(17,4.12310562561766)
(18,4.24264068711928)
(19,4.35889894354067)
(20,4.47213595499958)
Традиционное решение
var
i:integer;
begin
for i:=1 to 20 do Writeln(i:2,sqrt(i):16:12)
end.
Результат
1 1.000000000000
2 1.414213562373
3 1.732050807569
4 2.000000000000
5 2.236067977500
6 2.449489742783
7 2.645751311065
8 2.828427124746
9 3.000000000000
10 3.162277660168
11 3.316624790355
12 3.464101615138
13 3.605551275464
14 3.741657386774
15 3.872983346207
16 4.000000000000
17 4.123105625618
18 4.242640687119
19 4.358898943541
20 4.472135955000