Введите число и вычитать из него по 0,5 до тех - вопрос №171833205 от navozovaleksejj 28.04.2022 06:38

Question

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

navozovaleksejj · Answer

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