Program n1;
var
x:integer;
begin
writeln('Введите число'); readln(x);
if (x mod 4=0) then writeln('Является') else writeln('Не является');
end.
program n2;
var
a,b:integer;
begin
writeln('Введите первое число'); readln(a);
writeln('Введите второе число'); readln(b);
if a>b then writeln(a*b*2,' ',(a+b)/2) else writeln((a+b)/2,' ',a*b*2);
end.
Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
<span>end.</span>
Вопросы очень не конкретные потому и ответы будут соответствующими
1) админ сети
2) много, это целая наука. Основное это разделить тех кому давать доступ к информации, а кому нет
3)Требования к пользователям - отвечать за последствия своих действий. Очень часто это требование не соблюдается
4) разграничивать доступ
5) законы связанные с этим делом
6) какой страны? обычно все акты касающиеся айти основаны на стандартах ISO
7) разграничение доступа. а конкретно в зависимости от информации и где она хранится и как используется
8) -
9) использование чужих данных в корысных целях
Выделить буквы другим цветом
Залить фон с буквами
Жирный шрифт
Подчеркивание