Только программы (без примеров):
А)
CLS
DIM a(1 TO 10) AS INTEGER
PRINT "Введите 10 чисел"
FOR i = 1 TO 10
INPUT a(i)
NEXT i
max = a(1)
FOR i = 2 TO 10
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Б)
CLS
INPUT "Введите количество элементов массива"; n
DIM a(n)
FOR i = 1 TO n
INPUT "Введите значение элемента: "; a(i)
NEXT i
max = a(1)
FOR i = 2 TO n
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Петрова - 1место
Белова-2 место
Комарова-3
Митина-4
Громова-последнее
Не войдут в финал : Комарова, Митина, Громова
===== Современный PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите a и b:');
if a > b then
Print(a, b)
else
Print(b, a)
end.
===== Старенький Free Pascal =====
var
a, b: integer;
begin
Write('Введите a и b: ');
Readln(a, b);
if a > b then
Write(a, ' ', b)
else
Write(b, ' ', a)
end.
===== Turbo Pascal для современников мамонтов =====
program ABC;
uses Crt;
var
a, b: integer;
begin
ClrScr;
Write('Введите a и b: ');
Readln(a, b);
if a > b then
Write(a, ' ', b)
else
Write(b, ' ', a);
ReadKey;
end.
<span>WordArt — это коллекция текстовых стилей, которые можно добавлять в публикации для создания декоративных эффектов, таких как тени или отраженный текст. WordArt можно использовать для добавления в документ специальных текстовых эффектов. Например, вы можете растянуть заголовок, наклонить текст, вписать текст в фигуру или применить градиентную заливку. Объект WordArt можно перемещать или размещать в документе, чтобы украсить его или акцентировать внимание на чем-либо. Вы можете в любой момент изменить или дополнить текст в существующем объекте WordArt.</span>
Ответ:7)32110 = 1010000012
8)12210 = 13224
9)11310 = 1618
10)101012 = 2110
11)258 = 2110
12)CC16 = 12∙161+12∙160 = 192+12 = 20410
Объяснение: