Найти сумму чисел и значение выражения - Pascal ABC

  1. 1.Найдите сумму чисел 1,1/2,1/3,1/4... больших заданного числа а. 2.Найдите значение выражения


textual

Код к задаче: «Найти сумму чисел и значение выражения - Pascal ABC»

var a,b,s:real;
    i:integer;
begin
write('a=');//чтобы сумма не была 0, вводить маленьое а, меньше 1
readln(a);
s:=0;
i:=1;
b:=1;
while b>a do
 begin
  s:=s+b;
  i:=i+1;
  b:=1/i;
 end;
write('s=',s:0:5);
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.600 из 5



Похожие ответы
  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Заданы три квадратных уравнения: ax2 +bx+c=0, dx2 +fx+r=0, px2 +qx+k=0. Найти минимальное значение среди корней этих уравнений.

  1. Написать программу формирования ОПЗ и расчета полученного выражения. Разработать удобный интерфейс ввода исходных данных и вывода результатов. Работу программы проверить на конкретном примере Сам пример со значениями которые должны получиться: (a– b)/(c+d)*e , где а=0.3 b=6.7 c=8.4 d=9.6 e=1.2 Результат должен получиться -0.429. Помогите пожалуйста используя динамический массив заранее спасибо

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Ввести a>=1. Найти значение какого из выражений больше: 1/а чи sin(а). Проверьте пожалуйста.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Посчитать значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Составить алгоритм и написать решение задачи на Паскале: Вычислить: где х - произвольное число, введенное пользователем с клавиатуры. Помогите пожалуйста! Решение желательно на уровне 10-11 класса.