Div и решить задания с этими операторами

Объяснение:

var a,b,x,y,z:real;

begin;

clrscr;

write('vvedite dlinu kirpicha ');

readln(x);

write('vvedite shirinu kirpicha ');

readln(y);

write('vvedite visotu kirpicha ');

readln(z);

write('vvedite dlinu otverstiya ');

readln(a);

write('vvedite shirinu otverstiya ');

readln(b);

if (x<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (x<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else

write('kirpich ne vmeshaetsya v otverstie') end end end end end;

 

 

end.

Можливі значення типів даних Використання

Текстовый Алфавітно-цифрові дані

Поле МЕМО Алфавітно-цифрові данні, речення, абзаци, тексти

Числовой Числові дані

Дата/время Дати і час

Денежный Дані про грошові суми, які зберігаються з 4 знаками після коми

Счетчик Унікальне довге ціле, яке генерується Access при створенні кожного нового запису

Логический Логічні дані(Використовується для збереження значень Істина і Неправда, Так і Ні)

Поле объекта OLE Малюнки, діаграми, фрагменти таблиць і інші об'єкти OLE з різних додатків Windows

Объяснение: