Привет. Предлагаю тебе такое решение. Так как сам новичок, чуть-чуть попыхтел :)
program dlya_0101000;
var
a,b,c,d,p,l:integer;
m:boolean;
label 1,2;
begin
writeln ('Введите 4 произвольных числа, разделяя их пробелом');
read (a,b,c,d);
p:=b*d;
if (((b-d) mod 2)= 0) then writeln('Сумма ',(b+d), ' чётная. Два числа и их произведение: ',b*d)
else
goto 1;
m:=(a+c)>150;
if m=true then writeln ('Сумма чисел: ',a+c,'. Четыре числа: ',a,' ',b,' ',c,' ',d);
if (((b-d) mod 2)<>0) and (m=true) then writeln ('Произведение второго и чётвёртого: ',(b*d), ' .Сумма первого и третьего: ',(a+c));
goto 2;
1: writeln ('Четыре числа: ',a,' ',b,' ',c,' ',d);
2:end.
Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.
Потому что слово "динамичный" от слова "динамика"-изменение, подстраивание. После изменение формулы или данного связанного с формулой моментально (ну или не моментально-зависит от производительности ПК) изменяется часть таблицы, подвластная этой формуле.
// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.
<span>1.Пароли, биометрические системы идентификации, серийные номера, программные ключи, аппаратные ключи, электронная подпись.
2.Т.к разработчики теряют немалую часть дохода от своей деятельности, а люди привыкают к использованию нелегального софта, уже не считая это преступлением.
3.</span>Копирование — файл, сделанный по образцу другого файла.
<span>Инсталляция — процесс установки программного обеспечения.
</span><span>Чтобы можно было проверить, не пиратская ли установка.
</span>
4.1)Защита доступа к компьютеру (апп.)
2) Защита данных на дисках (апп.)
<span>3) Защита информации с помощью специальных ключей-разъемов.
(апп.)
4)Пароли(программные)</span>
