Самостоятельно разработайте для исполнителя рисователь - вопрос №10575556 от БПД 23.03.2022 18:25

Question

Информатика: Самостоятельно разработайте для исполнителя рисователь программу рисования (в кумире) ​

БПД · 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

Самостоятельно разработайте для исполнителя рисователь программу рисования (в кумире) ​

Самостоятельно разработайте для исполнителя рисователь программу рисования (в кумире)