1-c3-b4-a2-b4-d4-cЭто продолжение - вопрос №14184062134244 от lerailina30040 24.07.2020 18:13

Question

Информатика: 1-c3-b4-a2-b4-d4-cЭто продолжение ​

lerailina30040 · Answer

// 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

1-c3-b4-a2-b4-d4-cЭто продолжение ​

1-c
3-b
4-a
2-b
4-d
4-c
Это продолжение