Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Очень прошу помогите Q_Q 1) Даны три числа вывести их в порядке возрастания . Составить алгоритм в Паскале. 2)Определить пройдёт ли кирпич с рёбрами a,b,c в прямоугольное отверстие со сторонами x и y. Алгоритм в Паскале.

Ответ оставил Гость

#1:

const
Count = 3; // количество проверяемых чисел

var
m : array [1..Count] of Integer;
i, e, c: Integer;
begin

Writeln(Введите числа:);
for i := 1 to Count do
begin
Write(i ,: ); Readln( m[i] );
end;

for i := 1 to Count do
for e := 1 to Count do
if m[i] < m[e] then
begin
c := m[i];
m[i] := m[e];
m[e] := c;
end;

for i := 1 to Count do
Write(m[i], );

Readln;
end.

#2:

var
a, b, c, x, y: Integer;
begin

Writeln(Введите рёбра кирпича:);
Write(a: ); Readln( a );
Write(b: ); Readln( b );
Write(c: ); Readln( c );

Writeln(Введите стороны отверстия:);
Write(x: ); Readln( x );
Write(y: ); Readln( y );

x := x*y;

if (a*b <= x) or (a*c <= x) or (b*c <= x) then
Write(Пройдёт.)
else
Write(не пройдёт.);

Readln;
end.