Задать вопрос
30 сентября, 19:16

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

+4
Ответы (1)
  1. 30 сентября, 23:11
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «напишите класс, который принимает с клавиатуры целое положительное число и, если оно как минимум трехзначное и положительное, уменьшает его ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы