Хоть мошна пуста, да душа чиста. (Богатство-бедность, сытость-нужда,Достаток, убожество, О чести, совести, стыде и бесстыдстве, Честность,Душа)Честному мужу честен и поклон. (Честь, почет, Честность)Не тот прав, кто сильный, а тот, кто честный. (Добро и зло, Честность)Честное дело не таится. (Добро и зло, О чести, совести, стыде и бесстыдстве,Честность)Честные глаза вбок не глядят. (Добро и зло, Воровство, Честность)Честное дело и буйну голову смиряет. (О чести, совести, стыде и бесстыдстве,Честность)Добрый конь не без седока, а честный человек не бед друга. (Честность)И не велика беда, да честна. (Честность)Лучше бедность да честность, нежели прибыль да стьщ. (Честность)Не в силе честность, а в правде. (Честность)Честное здравствование сердцу на радость. (Честность)Честность всего дороже (Честность)Добрый конь не без седока, а честный человек не без друга. (Честность, Друг)Будь гол, да не вор, а беден, да честен. (Честность)Лучше малые крохи с честностью, чем большие куски с лихостью. (Честность)Некрасив собою, зато честен душою. (Честность)Честные глазе вбок не глядят. (Честность)Честное дело и буйну голову смиряет. #9632; Я хоть и в саже, да никого не гаже.(Честность)Честных почитай, а гордых презирай. (Честность)Богат, да крив, беден, да честен. (Честность)
Program long; uses Crt; const n=5; type Vec=array [1..n] of integer; var A, B, C: Vec; i,j,k, Col: integer; Pro: longint; a1, a2: integer; begin ClrScr; Randomize; Col:=1; Pro:=1; WriteLn ('Massiv A:'); for i:=1 to n do begin A[i]:=500+random(2000); Write(A[i]:6); if A[i] >1000 then begin B[Col]:=A[i]; Col:=Col+1; end; end; WriteLn; Col:=Col-1; WriteLn; WriteLn ('Massiv B:'); for i:=1 to Col do WriteLn(B[i]); WriteLn; k:=1; for i:=1 to n do begin a2:=B[i] mod 10; a1:=B[i] div 1000; if sqr(a1)<sqr(a2) then begin C[k]:=B[i]; k:=k+1; end; end; for i:=1 to k-1 do Pro:=Pro*C[i]; WriteLn ('Pro=',Pro); ReadLn; end.
0,6х2-1,2+4,6-2,8-0,4х
0,6х2-0,4х+0,6=0
Д=1,6-4*0,6*0,6=1,6-1,44=0,16; кор.Д=0,4
х1=0,4+0,4/1,2=0,8/1,2
Х2=0,4-0,4/1,2=0
Якось так)