PascalABC.NET 3.4

begin var (x,y):=ReadReal2('Координаты слона (х y):');
if not x.Between(1,8) or not y.Between(1,8) then begin
    Writeln('Координата должна быть в пределах 1..8');
    Exit
    end;
var (x1,y1):=ReadReal2('Координаты фигуры (х y):');
if not x1.Between(1,8) or not y1.Between(1,8) then begin
    Writeln('Координата должна быть в пределах 1..8');
    Exit
    end;
if Abs(x-x1)=Abs(y-y1) then Writeln('Можно убить')
else Writeln('Нельзя убить')
end.

0 0

3 года назад

Прочитать ещё 2 ответа

Напишите программу, которая составит все возможные комбинации из цифр 3.4.5.6. и проверит каждую из этих комбинаций, является ли

Ничегоподобного [14]

Ответ:

Объяснение:

var a,b,c,d:integer;

begin

for a:=3 to 6 do

for b:=3 to 6 do

for c:=3 to 6 do

for d:=3 to 6 do begin

if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) and (frac(sqrt(1000*a+100*b+10*c+d))=0) then

writeln(a,b,c,d);

end;

end.

0 0

4 года назад

Отметьте точки вариант2

Serj962

Надеюсь что правильно)

0 0

4 года назад

Как найти значение переменной а, при выполнения алгоритма: а:=6 b:=2 b:=a/2*b a:=2*a+3*b

Как найти значение переменной а, при выполнения алгоритма: а:=6 b:=2 b:=a/2b a:=2a+3*b