// 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.
Компьютерный вирус — это компьютерная программа, вызывающая нарушение работы других программ, порчу информации, невозможность прочитать файлы, замедление либо нестабильность работы компьютера,а так же создавать копии самого Защитить компьютер можно только антивирусами.Но антивирусы не всегда могут заметить вирус,ведь с каждым днем появляются новые вирусы.Так же защитой может быть наблюдательность,то есть не заходит на не знакомые сайты,не переходить по посторонним ссылкам. Но корпорация Microsoft,советует также постоянно обновлять операционную систему Windows.А так же держать включенным Брандмауэр(Брандмауэр Windows или другой брандмауэр оповещают о наличии подозрительной активности при попытке вируса или червя подключиться к компьютеру. Он также позволяет запретить вирусам, червям и хакерам загружать потенциально опасные программы на компьютер)
