Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a

@wein173 · Регистрация: 29.04.2013

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

Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a.

@brunis · 26.06.2013, 02:09

Pascal

var
  a: real;
  n,i: integer;
begin
  write('a = '); readln(a);
  write('n = '); readln(n);
  For i:=1 to n do
    if 1+ 1/n < a then
      writeln('1 + 1/',i,' = ',1+1/i:0:2,' < ',a:0:2);
 
  readln;
end.

@wein173 1 / 1 / 0 Регистрация: 29.04.2013 Сообщений: 79
		1
	Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a 25.06.2013, 23:37. Показов 4621. Ответов 1 Метки нет (Все метки) Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a. 0

	26.06.2013, 02:09

Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a

Решение