Var
a,c,d,t:real;
begin
Write('Введите сторону квадрата: '); Read(a);
Write('Введите длину и ширину прамоугольника: ');
Read(c,d);
if c<d then begin t:=c; c:=d; d:=t end;
if (d>a) and (c>2*a) then Writeln('Два квадрата помещаются')
else Writeln('Два квадрата не помещаются')
end.
<u>Пример</u>
Введите сторону квадрата: 8
Введите длину и ширину прамоугольника: 16.2 9
Два квадрата помещаются
1. Пока волосы не будут в порядке, продолжать причесываться.
2. Пока все вопросы к экзамену не будут выучены, учить очередной вопрос.
3. Пока вся посуда не будет вымыта, мыть очередной предмет.
4. Пока не наступят каникулы, ходить в школу.
5. Пока на улице не потеплеет, носить теплую одежду.
<span>1. 100000 Кбайт = 100 Мбайт
2. 512 бит < 50 байт
3. 1024 байт < 1 Кбайт
4. 8 Гбайт = 80000 Мбайт
5. 16 байт > 128 бит</span>
лестья -яблоня-ствол-ветки-плоды
B3: =СТЕПЕНЬ(А3;2) ⇒ 7^2 ⇒49
C3: =СУММ(А3:В3) ⇒ 7+49=56
D3: =ЕСЛИ(С3<60;МАКС(А3:С3);МИН(А3:С3)) ⇒ <span>МАКС(А3:С3) </span>⇒ 56