Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>
Для растрового изображения сохраняется цвет каждого пикселя. Сверху накладываются разнообразные сжатия
Векторные изображения сохраняются в виде описания параметров графических примитивов из которых они состоят
Print("Введите n:")
n = int(input())
m = 0
for i in range(1,n):
m = m+45
if i % 2 == 1:
m = m+5
else:
m = m+15
m = m+45
print('%(h)d:%(min)02d' % {"h":9 + m // 60, "min":m % 60})
Пример:
<span>Введите n: 5
13:25</span>
Переведём гигобайты в мегабайты:
1024 * 2 = 2048 мб (на флешке)
Потом узнаем размер 4-ёх папок:
635 * 4 = 2540 мб
И узнаем, сколько места нам не хватит:
2540 - 2048 = 492 мб
Ответ: не хватит 492 мб
Ответ:
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 числа не совпадали друг с другом