Var a,b,c,r,d1,d2,d3:real;
begin
writeln('Введи радиус иллюминатора и размеры сундука');
readln(r,a,b,c);
d1:=sqrt(sqr(a)+sqr(b));
d2:=sqrt(sqr(a)+sqr(c));
d3:=sqrt(sqr(b)+sqr(c));
writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
if (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.
Принтер............................
Var x,y:real;
begin
write('x = '); readln(x);
if x>12
then y:=2*x+15
else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.
Пример:
x = 10
y = -7.8
Кабинет музыки-ноты, муз. инструменты()
Кабинет химии- колбы, кристаллы(⚗️)
Кабинет информатики- компьютер, клавиатура, мышь (⌨️)
Спорт. зал- мячи, ракетки( ⚽️)
Первое и четвёртое.
Неприличные посты удалить и объясниться перед близкими.