Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

    • Автор:

      mckenna
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years