Writeln(*тут напиши переменную*);
Какие задания?Пожалуйста отправьте
1. Нарушение Конфиденциальности (данные согут просматривать те устройства или люди которым разрешено)
2. Незаконное
проникновение в один из компьютеров сети под видом легального
пользователя или программы
3. Отключение программ защиты данных(шифраторов) и тд.
Както так, ну и ещё наверно (вдруг): изменение Ip илипортов.
Если чтото не правиль, извини))
var
x,y:real;
begin
readln(x,y);
if (y <= 7) and (y<>x*x) and (sqrt(sqr(x)+sqr(y))<=7) then
writeln("принадлежит")
else
writeln("не принадлежит");
readln;
end.
Если не ошибаюсь. А могу.
Uses crt;
var
n, sum:integer;
begin
n := 100;
while n < 1000 do
begin
sum += n;
n += 4;
end;
writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);
end.