Чтобы уменьшить размер файла, можно его заархивировать
20 букв и 10 цифр составляют алфавит объемом 30 символов. Для размещения 30 символов требуется 5 бит (2^5=32 - достаточно, а 2^4=16 - не хватает).
Для одного 8-символьного номера требуется 5х8=40 бит.
Для 40 номеров потребуется 40х40=1600 бит. Или 1600/8=200 байт.
Program sg3;
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
<span>end.</span>
Антивірусне програмне забезпечення зазвичай використовує два різних методи для виконання своїх задач.Наприклад:Перегляд (сканування) файлів для пошуку відомих вірусів, що відповідають визначенню в словнику вірусів та знаходження підозрілої поведінки будь-якої з програм, що схожа на поведінку зараженої програми.При цьому методі антивірусна програма під час перегляду файлу звертається до словника з відомими вірусами, що складений авторами програми-антивірусу.У разі відповідності якоїсь ділянки коду програми, що проглядається, відомому коду (сигнатурі) вірусу в словнику, програма-антивірус може виконувати одну з наступних дій.<span>Хоча антивірусні програми створені на основі пошуку відповідності визначенню вірусу в словнику, за звичайних обставин, вони можуть досить ефективно перешкоджати збільшенню випадків зараження комп'ютерів, автори вірусів намагаються триматися на півкроку попереду таких програм-антивірусів, створюючи «олігоморфні», «поліморфні» і, найновіші, «метаморфічні» віруси, у яких деякі частини шифруються або спотворюються так, щоб неможливо було знайти спільне з визначенням в словнику вірусів.</span>
Var
z,a:real;
begin
writeln('Vvedite a');
readln(a);
z:=sqrt(1-sin(a));
writeln('resultat ',z)
end.