Question

Введите число и вычитать из него по 0,5 до тех пор пока оно нестанет меньше 1

Answer 1

Ответ:

Объяснение:

var a,b: real;

 n,i: integer;

begin

 readln(a);

 b:=0.5;

 while a>1 do

  begin

    a:=a-b;

  end;

Answer 2

Хорошо, начнем:

Введите число: 5

5.0 4.5 4.0 3.5 3.0 2.5 2.0 1.5 1.0

Как видите, мы вычитали по 0,5 из числа 5 до тех пор, пока оно не стало меньше 1. Результатом является число 1.0.