Выбрать правильное определение «Компьютерного вируса» Это система хранения файлов и организации каталогов - id1409440220201022 от VUNDURKIND1 22.10.2020 13:47

Question

Информатика: Выбрать правильное определение «Компьютерного вируса» Это система хранения файлов и организации каталогов Делает истинное высказывание ложным и наоборот, ложное- истинным. Является программами, которые могут «размножаться» и скрытно внедрять свои копии в файлы, загрузочные секторы дисков и документов. программу резервного копирования файлов​

VUNDURKIND1 · Accepted Answer

Program pr;
uses crt;

var
chislo, sum1, sum2, i:integer;
Begin
writeln ('Введите номер билета');
readln (chislo);

if (chislo>999999) or (chislo<100000)
  then writeln ('Такого билета нет')
else
  Begin
  sum1:=0;
  for i:=1 to 3 do
  Begin
sum1:=sum1 + (chislo mod 10);
chislo:=chislo div 10;
end;

sum2:=0;
for i:=1 to 3 do
Begin
  sum2:=sum2 + (chislo mod 10);
  chislo:=chislo div 10;
end;

if (sum1=sum2)
  then writeln('Билет счастливый')
  else writeln('Билет несчастливый');
end;

readln;
end.

MOGZ ответил