Введите число и вычитать из него по 0,5 до тех - вопрос №1719234051 от sa66 09.06.2020 05:03

Question

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

sa66 · Answer

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