program fantscrin;
var x_1,x_2,h,j,i: integer; f: boolean; a: array [1..3] of string; k,l: string;
function chek_number(a: integer): boolean;
var k: integer;
begin
if (a mod 2 < > 0) then
begin
chek_number: =false;
exit;
end;
while a > 0 do
begin
a: =a div 10;
k: =k+1;
end;
if (k = 3) then chek_number: =true
else chek_number: =false;
end;
begin
f: =false;
while f = false do
begin
write('введите 1-ое число: '); readln(x_1);
f: =chek_number(x_1);
end;
f: =false;
while f = false do
begin
write('введите 2-ое число: '); readln(x_2);
f: =chek_number(x_2);
if (f) then if (x_1 < > x_2) then f: =true
else f: =false;
end;
str(x_2,l);
str(x_1,k);
i: =1;
h: =1;
while i< =3 do
begin
j: =1;
while j< =3 do
begin
if (k[i] = l[j]) then
begin
a[h]: =k[i];
h: =h+1;
end;
j: =j+1;
end;
i: =i+1;
end;
writeln('');
i: =1;
while i < =3 do
begin
write (a[i], ' ');
i: =i+1;
end;
end.
Существует несколько тысяч языков программирования. Мы с вами познакомимся с языком программирования Паскаль, который был разработан в 70 -х годах века Никлаусом Виртом (Швейцария). Своё название этот язык получил в честь французского учёного Блеза Паскаля, известного не только своими достижениями в математике, физике и философии, но и созданием первой в мире механической машины, выполнявшей сложение двух чисел.Язык Паскаль считается универсальным языком программирования, так как он может применяться для записи алгоритмов решения самых разных задач (вычислительных, обработки текстов, построения графических изображений, поиска информации и т.д.).
Он поддерживает процедурный стиль программирования, в соответствии с которым программа представляет собой последовательность операторов, задающих те или иные действия.
Поделитесь своими знаниями, ответьте на вопрос:
Коли вірус починає діяти і в чому полягає його дія?♦ Які антивіруси можуть «лікувати» файли і диски?
Объяснение:
І.
Комп'ютерний вірус починає діяти після завантаження зараженого файлу. Тільки після цього вірус починає діяти самостійно.
"Дії" на комп'ютер вірусів бувають абсолютно різні: від самовільного відкриття сайтів (здебільшого рекламного характеру) в браузері, уповільнення роботи комп'ютера та зменшення обсягу оперативної пам'яті до зникнення файлів (або їх зміни), форматування жорсткого диска та неспроможністю завантажити комп'ютер.
ІІ.
"Лікування" файлів антивірусом полягає в вилученні з зараженої програми коду (тіла) віруса.