Объяснение:
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
Объяснение:
var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.