// 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.
// Внимание! Если программа не работает, обновите версию!
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
Объяснение:
аьтаосдсьчт636846т69989=7=7=49497572644%477 до т6лрсооо555454647-꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡(´∩。• ᵕ •。∩`) (*^3^)/~♡♡(> ਊ <)♡( ˘ ³˘)♥(〃゚3゚〃)(◕દ◕)( ˘ ³˘)♥(●’3)♡(ε`●)(*^3^)/~♡(●’3)♡(ε`●)(*^3^)/~♡(●’3)♡(ε`●)(*^3^)/~♡(●’3)♡(ε`●)(●’3)♡(ε`●)(/^-^(^ ^*)/(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)надеюсь