2.11 * напишите класс, который выводит на экран в одной строке ваше имя и фамилию, в другой – телефон, все это – в рамке из «звездочек» (* например: *иван иванов* *7-841-266666* 2) напишите класс, который принимает с клавиатуры целое число и выводит на экран число, которое больше введенного с клавиатуры на 10.

// 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.         Следует предварительно выделить необходимый фрагмент таблицы, на основе которого строится диаграмма, причем хорошо бы, чтоб левый столбец содержал названия строк, а первая строка – названия столбцов. Тогда мастер сразу включит их в диаграмму, расположив по осям или вставив в легенду. Если требуется выделить данные в разных частях таблицы, выделение выполняют при нажатой клавише Ctrl.

2.         Выберите тип диаграммы. Предлагается 15 основных типов, у каждого из которых есть еще подтипы. Для круговой диаграммы берутся значения одного наименования: одной строки или одного столбца (такие значения одного наименования называются категорией).

3.         Уточните диапазон данных и где они размещены (в строках или столбцах).

4.         Введите общий заголовков диаграммы и подписи осей, если они будут присутствовать в диаграмме.

5.         Определите, как разместить диаграмму: на отдельном листе или вместе с таблицей.

6.         Нажмите Готово.

Если диаграмма на отдельном листе, перейти к таблице можно, используя панель навигации в нижней части окна Excel .

Готовую диаграмму можно отредактировать. Для этого надо

1.        выделить ее,

2.        один раз щелкнув по ней (выделенная диаграмма отмечена черными квадратиками по углам).

3.        теперь ее можно удалить (Delete), двигать мышью по листу в нужное место листа, уменьшать или растягивать за черные квадратики.

Первое :

var

i, num, nums2, nums3, nums4, nums5: Integer;

begin

for i := 1 to 20 do

begin

ReadLn(num);

if num = 2 then

nums2 := nums2 + 1

else if num = 3 then

nums3 := nums3 + 1

else if num = 4 then

nums4 := nums4 + 1

else if num = 5 then

nums5 := nums5 + 1 ;

end;

WriteLn('Количество двоек - ', nums2);

WriteLn('Количество троек - ', nums3);

WriteLn('Количество четвёрок - ', nums4);

WriteLn('Количество пятёрок - ', nums5);

end.

Второе:

var

i, height, minHeight, maxHeight: Integer;

totalHeight: Real;

begin

for i := 1 to 20 do

begin

ReadLn(height);

if (i = 1) or (height < minHeight) then

minHeight := height ;

if (i = 1) or (height > maxHeight) then

maxHeight := height ;

totalHeight := totalHeight + height;

end;

WriteLn('Максимальный рост - ', maxHeight);

WriteLn('Минимальный рост - ', minHeight);

WriteLn('Средний рост - ', Round(totalHeight / 20.0))

end.