<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords()[1].Length)
end.
<u>Пример</u>
> А роза упала на лапу Азора
4
var
A: array [1..3] of Integer;
i, imin, imax, imid: Integer;
begin
Write('Введите 3 целых различных числа: ');
Readln(A [1], A [2], A [3]);
if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin
Writeln ('Имеются одинаковые числа!');
Exit;
end;
imin := 1;
imax := 1;
for i := 2 to 3 do begin
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
for i := 1 to 3 do begin
if (i <> imin) and (i <> imax) then
imid := i;
end;
Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));
end;
Разных цифр - 5
программа:
использовать чертежник
алг 1
нач
опустить перо
сместиться в точку (1,1)
кон
алг 2
нач
сместиться в точку (2,1)
кон
алг 3
нач
сместиться в точку (3,8)
кон
алг 4
нач
поднять перо
сместится в точку (0,0)
опустить перо
переместиться в точку (6,6)
кон
алг 5
нач
сместиться в точку (3,8)
кон
алг индекс
нач
1
2
3
4
5
кон
на всякий случай проверь, запусти
он должен что то непонятное нарисовать
(если я понял задание)