Вопрос задан 15.02.2019 в 21:42. Предмет Информатика. Спрашивает Бандурин Артем.

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

трехзначное и положительное, уменьшает его на 1
0 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.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Класс, который принимает с клавиатуры целое положительное число и, если оно как минимум трехзначное и положительное, уменьшает его на 1, может выглядеть следующим образом на языке Python:

```python class NumberManipulation: def __init__(self): pass

def reduce_number(self, number): if number >= 100: number -= 1 print("Число уменьшено на 1. Новое значение:", number) else: print("Число меньше трехзначного или отрицательное.") ```

Пример использования класса:

```python manipulator = NumberManipulation()

input_number = int(input("Введите целое положительное число: ")) manipulator.reduce_number(input_number) ```

Этот код создает класс `NumberManipulation`, который содержит метод `reduce_number`, принимающий число и проверяющий, является ли оно как минимум трехзначным и положительным. Если это условие выполняется, число уменьшается на 1 и выводится новое значение. Если условие не выполняется, выводится соответствующее сообщение.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос