Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Срочно нужна помощь по задачам Pascal!!! Помогите пожалуйста :)
Валерия Елизарова
(95),
закрыт
6 лет назад
Лучший ответ
Алекс Куха
(446490)
6 лет назад
s:=a[1];
for i:=2 to 12 do begin
a[i]:=1/s; s:=s+a[i];
write (a[i]:6:3);
end;
for i:=2 to 12 do begin
a[i]:=1/s; s:=s+a[i];
write (a[i]:6:3);
end;
Остальные ответы
Иван Бобровник
(311)
6 лет назад
1. Площадь круга S=πR². Площадь квадрата S=a*b. a=b=√S. Вывести результат write('x = ',x:0:1) 1 знак после запятой
Похожие вопросы
1. Ввести радиус круга. Вычислить сторону квадрата, площадь которого равна площади этого круга. Результат вывести с одним знаком после запятой.
2. Можно ли от бревна длиной L м отрезать N кусков длиной по A м? Вывести «Да» или «Нет». Если можно, то вычислить и вывести длину оставшейся части бревна с двумя знаками после запятой.
3. Заполнить массив A[1..12] вещественными числами. Значение A[1] вводится, а каждое следующее значение есть единица, деленная на сумму всех предыдущих элементов массива. Вывести на экран элементы массива c тремя знаками после запятой.