Question

Задание 2.11 *
Напишите класс, который выводит на экран в одной строке ваше имя и фамилию, в другой – телефон, все это – в рамке из «звездочек» (*).

Например:
*************
*Иван Иванов*
*7-841-266666*
*************

2) Напишите класс, который принимает с клавиатуры целое число и выводит на экран число, которое больше введенного с клавиатуры на 10.

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

type
  Ex211a=class
 
  public
 
  constructor(fio,phone:string);
  begin
    var n:=Max(fio.Length,phone.Length);
    Writeln((n+2)*'*');
    Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
    Writeln((n+2)*'*')
  end;
end;

type
  Ex211b=class
 
  public
 
  constructor;
  begin
    var n:=ReadInteger('Введите целое число:');
    Writeln('Результат равен ',n+10)
  end;
end;

begin
  new Ex211a('Иван Иванов','7-841-2666666');
  new Ex211b
end.

Пример
***************
*Иван Иванов  *
*7-841-2666666*
***************
Введите целое число: 18
Результат равен 28