Ответ:
program Loto;
var
L: array [1..50] of Integer;
a: array [1..3] of Integer;
i, j, n: Integer;
b: Boolean;
begin
for i := Low (L) to High (L) do
L [i] := i;
Randomize;
for i := 1 to 3 do begin
repeat
n := Random (51) + 1;
until L[n] <> 0;
a [i] := L [n];
L [n] := 0;
end;
for i := 1 to 3 do
Write (a [i], ' ');
ReadLn;
end
Объяснение:
сделана проверка чтобы 3 числа не совпадали друг с другом
от 3 до 7 букв. Два варианта на каждую букву
2³+2⁴+2⁵+2⁶+2⁷=8+16+32+64+128=248 слов
X = 12.
(12>2) - ДА.
(12<5) - НЕТ.
(12>10) - ДА.
Заменим "ДА" - 1, "НЕТ" - 0.
1 + 0 * 1 = 1.
Выражение истинно.
1 см = 0,01 м
Поэтому длину в см делим на 100 и получаем длину в м. И записываете целое число без остатка.
Ответ:
970 в ячейке А5, все остальное будет больше