Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович ', '1', '2', '3', '1', '5','3', '3', '2'), ('Петров Петр Петрович ', '5', '5', '5', '4', '5','5', '5', '5'), ('Сидаров Сидор Сидорович ', '3', '2', '3', '2', '2','2', '2', '1'), ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'), ('Сергеев Сергей Сергеевич ', '2', '2', '5', '5', '5','5', '2', '3'), ('Степанов Степан Степанович ', '5', '5', '5', '4', '5','5', '5', '5'), ('Давыдов Давид Давидович ', '3', '3', '3', '3', '3','3', '3', '3')); var sr:real; // средний балл b:real;begin writeln('--------------------------------------------------------------------'); writeln('| ФИО |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |'); writeln('--------------------------------------------------------------------'); for var i:=0 to 6 do begin write('|'+mas[i,0]+'|'); sr:=0; for var j:=1 to 8 do begin write(' '+mas[i,j]+' |'); double.TryParse(mas[i,j],b); // строку в число sr:=sr+b; end; sr:=sr/8; write(sr:5:3); write('|'); writeln; end; writeln('--------------------------------------------------------------------'); end.
Верно сказано про Аню( точное утверждение)
у Ани синяя флешка
у Маши не синяя ( значит или белая или красная)
у Вари не белая (значит синяя или красная),но синяя у Ани. Получается, то у Вари--красная.
Тогда оставшаяся белая флешка у Маши
<span>При работе с Панелью форматирования выравнивание осуществляется с помощью расположенных на ней кнопок. Одинарный, по<span>луторный и двойной межстрочные интервалы также можно </span><span>установить с помощью кнопок, предварительно настроив Панельформатирования. Другие межстрочные интервалы можно установить только с помощью диалогового окна. Отступы абзаца и первая <span>строка устанавливаются с помощью Горизонтальной координатной линейки (рис. 14); при этом верхняя метка указывает начало </span>первой (красной) строки, а нижние — ширину абзаца.</span></span><span><span>Чтобы форматирование абзаца происходило в процессе его ввода, </span>следует задать необходимые параметры, а уже затем вводить текст.</span><span>Для форматирования нескольких расположенных друг за дру<span>гом абзацев их необходимо предварительно выделить. При форма<span>тировании одного абзаца достаточно установить курсор в любом </span><span>месте этого абзаца.</span></span></span>
Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>