Войти Регистрация Спроси ai-bota

Сосчитать 1+1/2+1/3+/99+1/100 . в pascale программу! ! ! !

Ответ:

PechenkO629

06.07.2020 10:16

Var i;integer;
s:real;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;

writeln(' Результат ', s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

галина261

21.05.2022 04:42

Написать программу которая выводит пример на умножение однозначных чисел ( рандомно)с ветвления !...

layci

20.02.2022 01:53

Составить программу расчета значения функции y=12a^2+7a-16 при любом значении а...

Glupaya990

04.02.2020 17:18

Найти сумму элементов массива кратных 4...

tatyanalarina2

11.05.2023 18:25

Как из сосудов емкостью 5 и 3 литра отмерить 1 литр? , можете решить ,например: наполнить а,перелить из а в б ,и тд)...

katuxa65789

11.05.2023 18:25

Написать программу, которая выводит на экран все простые числа из диапазона 1..100. тут необходимо использовать цикл внутри цикла. внешний цикл проходится по всем числа от 0 до...

jenek28022008

11.05.2023 18:25

Дано n чисел .вычислите сумму квадратов отрицательных чисел...

DinaraBergeneva

29.11.2020 21:00

Вцикле с клавиатуры вводятся 10 целых чисел. вычислить процент чѐтных чисел и процент нечѐтных....

sasockolowa

29.11.2020 21:00

Составьте программу , которая с четырьмя произвольными числами а х z w введенными с клавиатуры производит вычисления по следующим формулам : b = (z²- a²) 7,5- 3 (z³ + w)² + 3x...

f0xses

06.02.2023 19:31

1. в одномерном массиве а(10) вычислить среднее арифметическое квадратов положительных элементов....

artemdychokp00pti

31.12.2022 06:13

2. дан массив из n элементов. определить количество элементов, имеющих четные порядковые номера и являющихся нечетными числами....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку