program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('введите вес бандероли');
readln (w);
if w < = n
then c: =10
else
if w mod n = 0
then c: =10+((w div n)-1)*5
else c: =10+5+((w div n)-1)*5;
d10: = c div 10;
d4: = (c-10*d10) div 4;
d1: = (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10: 10,' монет по 10 драхм');
writeln (d4: 10,' монет по 4 драхмы');
writeln (d1: 10,' монет по 1 драхме');
end.
результат работы программы:
введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме
1) Информацию нужно защищать от несанкционированного доступа и кражи, порчи (преднамеренной или нет) , утери (например, резервное копирование как защита данных от сбоев в работе севера) .
2) Вполне вероятно, словить вирус, скачивая какой-либо файл.
3) Загрузочные вирусы, шпионское ПО и т.д.
4) Он внедряется в исполняемые файлы операционной системы.
5) Не переходить по подозрительным ссылкам, не скачивать подозрительные файлы и т.д.
6) Криптогра́фия (от др.-греч. κρυπτός «скрытый» + γράφω «пишу») — наука о методах обеспечения конфиденциальности (невозможности прочтения информации посторонним), целостности данных (невозможности незаметного изменения информации), аутентификации (проверки подлинности авторства или иных свойств объекта).
7) Версии о рождении первого компьютерного вируса существует немало. Но опираясь на факты можно сказать – на первом компьютере Чарльза Бэббиджа вирусов еще не было, а вот в середине 1970-х, на IBM 360/370 они уже были.
8) Антивирусы и т.д
9) Загру́зочный ви́рус — компьютерный вирус, записывающийся в первый сектор гибкого или жёсткого диска и выполняющийся при загрузке компьютера с идущих после главной загрузочной записи (MBR), но до первого загрузочного сектора раздела. Перехватив обращения к дискам, вирус либо продолжает загрузку операционной системы, либо нет (MBR-Locker). Размножается вирус записью в загрузочную область других накопителей компьютера.
Объяснение:
mass:array[1..20] of integer;
begin
for i:=1 to 20 do
read(mass[i]);
m:=mass[1];
for i:=2 to 20 do
m:=m*mass[i];
writeln(m);
end.