Трамвайный билет имеет шестизначный номер(от 100000 до 999999). выяснить, является ли билет "счастливым". билет назовем "счастливым", если сумма первых трёх чисел равна сумме трёх других чисел. через цикл whili, а также div mod
Program Task; Var a: Array of Integer; n, b, c, i: Integer; Begin Write('Введите номер билета: №'); ReadLn(n); b := n; While b <> 0 Do Begin b := b Div 10; c := c + 1; End; If (c < 1) Or (c > 6) Then WriteLn('Неверный номер билета. Завершение программы.') Else Begin SetLength(a, c); b := n; For i := c - 1 DownTo 0 Do Begin a[i] := b Mod 10; b := b Div 10; End; If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then WriteLn('Билет "счастливый"!') Else WriteLn('Не повезло'); End; ReadLn; End.
begin Randomize; for i := 1 to n do for j := 1 to n do X[i,j] := Random(100); for i := 1 to n do begin IndMax := 1; max :=X[i,1]; for j := 2 to n do begin if X[i,j]>max then begin max := X[i,j]; //Наибольший элемент строки с номером i IndMax := j; //Столбец, в котором находится наибольший элемент строки //с номером i end; end; //Смена элементов X[i,IndMax] := X[i,i]; X[i,i] := max; end; end;
К элементам форматирования таблиц можно отнести: границы и заливка
К атрибутам форматирования символов относятся: гарнитура шрифта, размер шрифта, начертание шрифта (полужирное, курсивное, подчеркнутое), цвет выделения текста, цвет текста, регистр, интервал между символами в слове и т.д.
К параметрам форматирования абзацев следует отнести: выравнивание текста (по левому или правому краю, по центру, по ширине), отступы абзацев, отступы первой строки абзацев, межстрочный интервал, заливка цвета фона, маркеры и нумерация списков и т.д.
Форматирование документа в целом - это форматирование номеров страниц, оформление автособираемого или ручного оглавления и т.д.
Основные параметры форматирования (оформления) страниц: границы рабочего поля (поля сверху, снизу, слева, справа), размеры страницы, ориентация страниц.
Var a: Array of Integer;
n, b, c, i: Integer;
Begin
Write('Введите номер билета: №');
ReadLn(n);
b := n;
While b <> 0 Do
Begin
b := b Div 10;
c := c + 1;
End;
If (c < 1) Or (c > 6) Then
WriteLn('Неверный номер билета. Завершение программы.')
Else
Begin
SetLength(a, c);
b := n;
For i := c - 1 DownTo 0 Do
Begin
a[i] := b Mod 10;
b := b Div 10;
End;
If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then
WriteLn('Билет "счастливый"!')
Else
WriteLn('Не повезло');
End;
ReadLn;
End.