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.
Техника безопасности при работе с компьютером очень важна, особенно если речь идет о школьных занятиях. Ведь современную образовательную систему трудно представить без компьютерных технологий. Кроме того, данная информация будет полезна и родителям. Техника безопасности при работе с компьютером Для начала стоит отметить важность защиты здоровья ребенка во время работы с электронной и вычислительной техникой. Кроме того, требования к образовательным учреждениям предусматривают и информационную безопасность ученика во время выхода в интернет.
#генерируем список из 2000 элементов my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]
# начальное значение для временного минимума min1_value = min2_value = 10000 min1_number = min2_number = 0
while my_list: x = my_list.pop() if x < min1_value: min2_value = min1_value min2_number = min1_number min1_value = x min1_number = 1 elif x == min1_value: min1_number += 1 elif x < min2_value: min2_value = x min2_number = 1 elif x == min2_value: min2_number += 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.