напишите класс, который принимает с клавиатуры целое положительное число и, если оно как минимум трехзначное и положительное, уменьшает его на 1 

Есть ответ
17.12.2022
199

Ответ


type Cl = class  a:integer;  constructor Create(b:integer);  procedure P;end;constructor Cl.Create(b:integer);begin  a := b;end;procedure Cl.P;begin  if (a div 100 > 0) and (a > 0) then  begin    a := a - 1;    writeln('new a  = ', a);  end;end;var  Obj:Cl;  a :integer;begin  write('a = ');  readln(a);  Obj := Cl.Create(a);  Obj.P;  Readln;  Obj.Destroy;end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.