1. ответ a)верно b)верно c)неверно d)верно e)верно
Объяснение: 1)ScanDisk-программа для исправления ошибок структур жестких дисков
2)Вследствие засорения реестра путем появления неверных записей, неочищенный кэш и мусор от установленных программ
3)Disk Cleanup-программа для очистки компьютера от всевозможного мусора, неиспользуемых системных файлов и следов работы в браузерах
4)Обычно программа перестаёт отвечать на действия пользователя, а курсор превращается в песочные часики. В этом случае в заголовке программы в скобках может быть написано «(Не отвечает)». Все попытки закрыть программу на «крестик» ничего не дают, либо крестик нажать не удаётся
5) Открыть диспетчер задач и во вкладке процессы снять задачу
// Внимание! Если программа не работает, обновите версию!
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
procedure RedFrac(var a,b:integer); // сокращение дроби
begin
var sgna:=sign(a); // мы должны учитывать знак!
var sgnb:=sign(b); // мы должны учитывать знак!
a:=abs(a); b:=abs(b);
var d:=Gcd(a,b);
a:=(a div d)*sgna; b:=(b div d)*sgnb
end;
begin
var p,q:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
RedFrac(p,q);
Writeln('Результат: ',p,' ',q)
end.
Пример
Введите числитель и знаменатель: -210 165
Результат: -14 11