с таблицей! Тема: Big Data

#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.

 

1. Сидеть не ближе 50см и не дальше 1.5м от монитора
2. Сохранять правильное положение рук на мыши и клавиатуре, при этом желательно использовать эргономические клавиатуры (Natural или Anti-RSI) и коврики со специальной подставкой для руки
3. Не пользоваться ЭЛТ-мониторами, только ЖК\IPS
4. По одному пользователю на компьютер (т.е. вдвоём за одним компьютером не сидеть)
5. Запускать программы только из белого списка разрешённых программ; впрочем, в этот список можно добавить проигрыватель виртуальных машин и запускать в нём что угодно.
6. Не кривляться на стуле, ага