1. Информатика
  2. For10. дано целое число

For10. дано целое число n (> 0). найти сумму 1+1/2 +1/+1/n

Nadezhda3422 Nadezhda3422    2   25.06.2019 01:40    1

Ответы
GOLUBOVICH0400 GOLUBOVICH0400  20.07.2020 12:19
Var n,i:integer;
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kostja07 kostja07  02.07.2020 14:23
Использование конструктора форм в MS Access...
Sergo12345678910 Sergo12345678910  02.07.2020 14:22
На языке программирования QBasic напишите код, который бы строил график функции у=SIN(X)....
Lilithovhannisyan Lilithovhannisyan  02.07.2020 14:17
Програмирование Python СДЕЛАЙТЕ Аружан очень капризная девочка. На летних каникулах она побывала в Таразе и в Алматы, и ей очень понравилось. Поэтому на следующие летние каникулы она...
Оливия131 Оливия131  02.07.2020 14:47
привет исправить код на паскале var FirstValue,SecondValue,ThirdValue,FourthValue,S,perimetr,stoimost : double; begin writeLn( введите первое число ); read(FirstValue); writeLn(...
VERAVERAVERAVERA123 VERAVERAVERAVERA123  02.07.2020 14:28
на машине поста даны два массива меток которые находятся на некотором расстоянни друг от друга требуется соеденить их в один массив каретка находится над крайней левой меткой...
mpaxomow mpaxomow  02.07.2020 14:36
Пропустил занятие и теперь не могу понять Нужен код С++ Порядок выполнения работы. 1. Выбрать класс абстрактного типа данных (АТД) в соответствии с вариантом. 2. Определить и...
DiroL21 DiroL21  12.03.2021 14:50
Які об єкти призначені для введення та перегляду даних...
star1010 star1010  12.03.2021 14:50
Дайте определение термину Переменные и назовите типы переменных...
Springtrap222134124 Springtrap222134124  17.08.2019 12:00
1. напишите программу на языке pascal: ввести число, если это число отрицательное (например: -5), то программа должна вывести число -5 отрицательное , если число положительное...
EseniaVoznesenskaya EseniaVoznesenskaya  17.08.2019 12:00
Команду выбора case завершают ключевое слово: a)else; b)end. c)end; d)of....

Популярные вопросы