Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
5 Кбайт = 5120 байт = 40960 бит. 1,5 Гбайт = 1536 Мбайт = 1572864Кбайт.
1,5 Кбайт = 1536 байт = 12288 бит
27.Чашки: чашка "а", чашка "b", чашка "с"
Чайник
начало
взять чашку
Янту не сказали, какую из чашек взять, поэтому он "завис".
28.Брюндик существо жёлтого цвета;большой живот;много ест.
Хрюндик существо розового цвета;хобот;обливается водой.
Крюндик существо зелёного цвета;хвостик;махать хвостиком.
5 надеюсь что язык запросов SQL, а не какой то экзотический)
а) select * from p where время отправления<=06:00:00
b) select * from p where стоянка>30
в) select * from p where откуда='Свердловск'
г) select * from p where куда<>'Москва'
6
а) 73, 339, 285, 49Н,
б) 73, 285, 49Н, 265Н,
в) 45
г) 73, 265Н, 45