С помощью Паскаля НАЙТИ СУММУ: 1/1+1/2+1/3...1/n
10-11 класс
|
program P1;
uses
crt;
var
n,i : integer;
summ : real;
begin
clrscr;
write('N = ');
read(n);
summ := 0;
for i := 1 to n do
summ := summ + 1/i;
writeln('Otvet: ',summ);
readln;
readln;
end.
Другие вопросы из категории
перепутал и в объявлении было написанно о продаже маленькой собачки, декоративной породы. Разрешите путаницу и напишите , что же хотел выставить на продажу невнимательный программист.
а сломанного изображения. Что делаю не так?
записаны в алфавитном порядке.
Вот начало списка:
1. ААААА
2. ААААК
3. ААААЛ
4. ААААО
5. ААААШ
4. АААКА
……
Какое слово следует за словом ШАЛАШ?
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.