напишите класс, который принимает с клавиатуры целое ...
напишите класс, который принимает с клавиатуры целое положительное число и, если оно как минимум трехзначное и положительное, уменьшает его на 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