Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше

@Badproge · Регистрация: 18.02.2020

Author24 — интернет-сервис помощи студентам

Ввести с клавиатуры вещественное число x (0<x<1).

Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше или равно x.

Числа выводить в десятичном представлении, с точностью 6 знаков после десятичной точки.

@ZX Spectrum-128 · 03.03.2020, 10:14

Pascal

var
  y, x: real;
  i: integer;
 
begin
  readln(x);
  i := 1;
  repeat
    y := 1 / i;
    writeln(y:0:6);
    inc(i);
  until y <= x;
end.

@Badproge 0 / 0 / 0 Регистрация: 18.02.2020 Сообщений: 34
		1
	Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше 02.03.2020, 22:42. Показов 1800. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры вещественное число x (0<x<1). Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше или равно x. Числа выводить в десятичном представлении, с точностью 6 знаков после десятичной точки. 0

	03.03.2020, 10:14