бро, ну смотри, если больше ничего не сказано, то выходит как-то так:
на1 - Х
на2 - Х/2
на3 - 3Х/2
на4 - 2Х
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.
за тридевять земель или к чёрту на кулички
Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное
Система - это объект,состоящий из взаимосвязанных элементов и существующих как одно целое