Объяснение:
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
Объяснение: