Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
elenamatrus777
01.05.2020 18:25 •
Информатика
Паскаль. корень из 1 + корень из 2 + + корень из 12. решите
Показать ответ
Ответ:
3508
09.10.2020 05:13
Var a,i,s:integer;
begin
I:=1;
s:=0;
while i < 12 do
begin
read(a);
s:=s+sqrt(a);
end;
write(s);
end.
0,0
(0 оценок)
Ответ:
Бебка228
09.10.2020 05:13
Var i: Integer;
a: real;
begin
for i:=1 to 12 do a:=a+sqrt(i);
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
irapodumey
17.05.2020 23:11
Впоследовательности укажите два следующих элемента, разделяя их запятой. 1, 1, 1, 3, 5, 9, 17, 31, 57....
FedushkinDmitry95
17.05.2020 23:11
Надо! на бумаге мы видим зелёный цвет. выберите верные утверждения. 1.он нанесён на бумагу при зеленой краски. 2.зеленый цвет отражён бумагой, а красный и синий поглощены. 3.он...
egorkozlovcev
23.09.2021 23:30
Паскаль! , . хотя бы 1 1) создать массив в интервале [-5; 5]. вывести максимальный и минимальный элемент. вывести количество нулей. 2) ввести с процедуры 3 числа. вывести наибольший...
SaySasha02
29.01.2020 03:39
Блок-схема Есть натуральное число n и действительные числа х, а1,а2...аn. Найти сколько значений х есть среди а1^2,a2^2...an^2...
arinkaapelsink
08.04.2021 09:21
Что произойдет, если конструктор копирования определенного класса получит свой аргумент по значению, а не по ссылке? a. Никаких изменений.б. Деструктор будет немедленно вызван.c....
diana290510
02.01.2022 13:35
C++ Заполнить массив 10 числами(Вводит числа пользователь). Вычислить сумму элементов массива, имеющие четный индекс....
Noop1
13.09.2022 06:06
Файл размером 3000 Кбайт передается через некоторое соединение со скоростью 64000 бит/с. Определите время в секундах, за которое можно передать этот файл....
люся4085
16.03.2023 14:53
На числовой прямой даны два отрезка: P = [20, 80] и Q = [35, 57]. Найдите наименьшую возможную длину отрезка A, при котором формула (x ∈ A) ∧ ((x ∈ Q) → (x ∈ P)) тождественно ложна,...
kostromitind
01.09.2022 00:38
Дана строка. Если длина введенной строки нечетная, удалить 3 первых и 3 последних символа. Если длина введенной строки четная, удалить 2 символ, стоящий посередине строки. Язык...
jjiki
03.02.2020 05:37
Написать программу вычисления длины окружности, площади круга и объема шара одного и того же заданного радиуса. на python...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
I:=1;
s:=0;
while i < 12 do
begin
read(a);
s:=s+sqrt(a);
end;
write(s);
end.
a: real;
begin
for i:=1 to 12 do a:=a+sqrt(i);
writeln(a);
end.