2. Циклы

Дано число a (1<a<=1,5). Из чисел 1+1/2, 1+1/3, … напечатать те, которые не меньше a.

Решение

1) Блок-схема алгоритма

2) Программа

program 2;

{$APPTYPE CONSOLE}

uses

SysUtils

var n: integer;

x, a: double;

begin

write('a=');

readln(a);

n:=2;

x := 1.5

while x>=a do

readln(x);

n:=n+1;

x:= 1+1/n

readln

end.

Библиографический список

1. Информатика. Базовый курс. 2-е издание / Под ред. С.В.Симонович. – СПб.: Питер, 2009. – 640 с.

2. Макарова Н. В., Волков В. Б. Информатика: Учебник для вузов. – СПб.: Питер, 2011. – 576 с.

3. Пестриков В.М., Маслобоев А.Н. Программирование на языке Object Pascal: учебно-методическое пособие / СПбГТУРП. – СПб., 2014. – 74 с.