Через программу кумир 1) ввести два числа и вывести их в порядке возрастания. введите два числа: 15 9 ответ: 9 15 2) ввести пять чисел и найти наибольшее из них. введите пять чисел: 4 15 9 56 4 наибольшее число 56

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.

Объяснение:

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

Объяснение: