1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
Не сидите много за компьютером, это опасно. компьютер плохо сказывается на здоровье человека. в частности на осанке и зрении. что бы с тобой было все хорошо нужно сидеть ровно перед экраном и не сутулиться. делать перерывы и долго не сидеть за компьютером. компьютер полезная вещь, но злоупотреблять не стоит
Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов.
Передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). А передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд.
80 / 10 = 8. Неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный.
Тогда упакованный файл имеет размер 24 МБ / 8 = 3 МБ
<u><em>Ответ:</em></u> 3 МБ
//PascalABC.NET
2)
begin
arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.
3)
begin
readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.
Вообще черные бабочки вызывают испуг. Если вопрос относиться к сравниванию, то на летаюшего жука.