1. Информатика
  2. Написать программный код для visual

Написать программный код для visual basic : вычислите 1+1/2+1/3+1/4++1/n,где n задается с экрана желательно еще написать,что выносить на форму

Кошка022 Кошка022    1   20.05.2019 11:50    0

Ответы
Ariya03 Ariya03  13.06.2020 21:09

var n,i: integer; s: real;
begin
write('vvedite n=');
read(n);
s:=1;
for i:=1 to n do
s:=1+1/(1+i);
writeln(s);
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
СлаваТрегубкин СлаваТрегубкин  30.03.2021 21:16
Натуральне число m називається рівним дільником числа n, якщо частка і остача від ділення n та m рівні. За введеним числом n знайти кількість його рівних дільників (циклом)...
Nina1211065 Nina1211065  30.03.2021 21:16
КУМИР заменИТе первый симво строки на нольумаляю​...
zhenianet zhenianet  30.03.2021 21:15
У кого есть Пайтон. Можете создать код в модуле turtle, чтобы нарисовалась эта лисичка. ( об язательно должна быть залита мне нужно сдать это на 5 апреля​...
алмат112 алмат112  14.08.2019 06:10
Монография, набранная на компьютере, содержит 2048 страниц, на каждой странице 48 строк, в каждой строке 72 символа. для кодирования символов используется кодировка unicode,...
0Assistant0 0Assistant0  14.08.2019 06:10
Ввести одномерный массив м(х),элементами которого являются положит. и отрицат. целые числа. найти среднее арифметическое чисел,больших 3; наибольшее среди последних 10-ти...
1234353234 1234353234  14.08.2019 06:10
Перевести числа 105,358,377 из десятичной в двоичную и наоборот....
poroshind poroshind  10.09.2020 09:16
Информацонные процессы примеры к словам ИспользованиеПреобразование​...
ChaffaYT ChaffaYT  09.08.2019 17:20
Microsoftwindows. окном инструмента обработки является: 1) окно программы 2) окно приложения 3) окно документа 4) диалоговое окно 5) окно панелей инструментов...
EnsteinMEGAMOZG EnsteinMEGAMOZG  22.02.2021 07:53
4 Реши задачи.а) Бочка с водой была заполнена на 12/15 от своего объёма. Дляполива утром израсходовали 8/15, а вечером долили 11/15 от объёма бочки. Какая часть бочки...
ленусиклд ленусиклд  22.02.2021 07:53
5. Теңдеулерді шеш.5 - 70.3= 34545:5.b= 900а: (400 - 360) = 8​...

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