Здесь можно использовать размещение:
= 5! / (5-2)! = 5*4 = 20
Ответ: 20 способами
Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
<span>end.</span></span>
Задание 1
INPUT "n=", n
s = 0
FOR i = 1 TO n
s = s + i ^ 2
NEXT i
PRINT 4 * s
Задание 2
10 минут - это 1/6 часа и суммировать дроби, в знаменателе которых число 6, означает накапливать погрешности представления нецелых чисел в ЭВМ. Поэтому расчеты лучше делать в минутах, а результат потом перевести в часы.
Получаем сумму S=60М+(60М+10)+(60М+20)+...+[60М+10*(N-1)]
INPUT "M,N=", m, n
PRINT 5 * n * (12 * m + n - 1) / 60
Вот такие получаются короткие программы, если сначала думать, а потом писать.
Объяснение:
1Кбайт — 1024байт.
1байт — 8бит.
1) 10240:1024 = 10Кбайт.
2) 204800:8:1024 = 25Кбайт.