Заполни пропуски в программе. Вывод на экран кубов чисел от 9 до 5.var:integer;beginfor i:= downto dowriteln (i*i*i);readln;end.
Ответ:
Объяснение:
Var
x1,y1,x2,y2:integer;
begin
readln(x1,y1,x2,y2);
if abs(x1-x2)+abs(y1-y2)=3 then
writeln('YES')
else
writeln('NO');
end.