сервис вопросов и ответовРешите в среде программирования Pascal:
5-9 класс|
|
Вычислить сумму 1 + 1/2+1/3…+1/n
Начальные значения: n;
Условия: for i: = 1 to n do
Операторы цикла: p:=p + 1/i;
Kirusha312
06 авг. 2013 г., 8:22:22 (10 лет назад)
Valerya210102
06 авг. 2013 г., 11:02:36 (10 лет назад)
Решение
var
n, i: integer;
p: real;
begin
readln(n);
for i:=1 to n do
p:=p+p/n;
write(p);
end.
Если есть вопросы, пиши.
Ответить
Другие вопросы из категории
Установите соответствие. Лазерные принтеры являются устройствами вывода информации камчатка является полуостровом
коллизией находится в риме
варианты ответов
отношение между двумя объектами
отношение между объектами и множеством объектов
отношение между двумя множествами объектов.
Заранее спасибо!
Читайте также
1.Какое значение переменной S будет напечатано после выполнения фрагмента программы,записанной на языке программирования TURBO PASCAL:A:=2В: = 3;
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
Решить задачу на языке программирования Pascal:
Дано предложение в котором между словами 2 или несколько пробелов:"Мама моет Машу".
Сколько сочетаний букв "Ma" в предложении.
Решить задачу на языке программирования Pascal.
В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?
Выполнить задания, связанные с Turbo Pascal: 1) Какой оператор позволяет менять значения переменных и вычислять
значения выражений?
2) Выполнить алгоритм при x=345:
Начало
ввод x
a=x div 100
b=x div 10 mod 10
c=(a+b)/2
вывод a
вывод b
вывод c
конец
3) Что появится на экране после выполнения фрагмента программы:
a:=7;
b:=5;
a:=a-b;
Writeln(b-a*2);
Writeln('a=',a,'b=',b);
4) Дана сторона квадрата, найти его периметр.
5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.
*Задачи 4 и 5 решить на языке программирования, используя математические функции.
Первому правилно решившему могу дать 50рублей - не жалко
Решить на языке программирования Python(Питон).
Использовать цикл while!
ПОМОГИТЕ, ПОЖАЛУЙСТА, ОЧЕНЬ НУЖНО!
Вы находитесь на странице вопроса "Решите в среде программирования Pascal:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.