Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6
Для обычного пользователя, программа может в любой момент перестать работать, запрося ключ активации.
Если на предприятии используется не лицензионное ПО, могут возникнуть проблемы с законом, которые могут повлечь за собой крупные денежные штрафы.