Введите число и вычитать из него по 0,5 до тех пор - вопрос №1719234051 от Алёна11Кот 02.04.2023 08:32

Question

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

Алёна11Кот · Answer

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