// PascalABC.NET 3.0, сборка 1164 от 11.02.2016 function gcd(a,b:integer):integer; // Нахождение НОД var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; Result:=a end;
begin var a:=ReadInteger('a='); var b:=ReadInteger('b='); var nod:=gcd(a,b); if nod>1 then WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}', a,b,a div nod,b div nod) else WritelnFormat('Дробь {0}/{1} несократима',a,b) end.
Var ma:array[1..n,1..n] of integer; i,j:integer; begin writeln('Matrix reading...'); for i:=1 to n do begin writeln; for j:=1 to n do readln(ma[i,j]); end; writeln('First matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin write(ma[i,j]:4); if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]); end; end; writeln; writeln('Final matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do write(ma[i,j]:4); end; end.
1. Тәртіпті, аңғарымды болу.
2. Өндірістік оқыту шеберінің ғана тапсырған жұмысын орындау.
3. Орындау тәсілін білген жағдайда ғана жұмысқа кірісу. Күдікті жағдайда жұмыс берушімен кеңесу.
4. Жұмыс кезінде өзінің де, өзгенің де көңілін бөлмеу.
5. Жарық жоқ және оның нашар кезінде жұмыс істемеу.
6. Компьютерді рұқсатсыз қоспау және қосылған компьютерді иесіз қалдырмау.
7. Дымқыл немесе су қолмен жұмысқа отырмау.
8. Монитор экраның желі жалғағыштарды, сымдарды қолмен ұстамау.
9. Қондырғыларды рұқсатсыз орнынан қозғамау.
10. Жұмыс орнынан қажетсіз кетпеу.
11. Компьютерді қатты қозғамау.
12. Компьютерлердің үстіне бөгде заттарды қоймау.
13. Жұмыс орнында және бөлмеде тазалық сақтау.