Вводится натуральное число n необходимо вывести все кубы натуральных чисел от n до 1

Question

Информатика: Вводится натуральное число n необходимо вывести все кубы натуральных чисел от n до 1

mariakhh2006 · Accepted Answer

Program pryam;

Var y1, y2, y3, x1, x2 : real;

Begin

writeln ('Введите координату (у) верхней точки прямой');

readln (y1);

writeln ('Введите координату (у) нижней точки прямой');

readln (y2);

writeln ('Введите координату (х) точек-концов прямой');

readln (x1);

writeln ('Введите координату (у) точки, принадлежность к прямой которой нужно определить');

readln (y3);

writeln ('Введите координату (х) точки, принадлежность к прямой которой нужно определить');

readln (x2);

if (y3<=y1) and (y3>=y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

End.