Введите число и вычитать из него по 0,5 до тех - вопрос №171833205 от Элина1232456652 09.02.2021 17:20

Question

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

Элина1232456652 · Answer

Объяснение:var a,b: real;  n,i: integer;begin  readln(a);  b:=0.5;  while a 1 do   begin     a:=a-b;   end;...