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 ответа

Дано предложение S удалить в нем все буквенные символы

ИКС

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString;
s:=s.RegexReplace('[A-Za-zА-Яа-яЁё]','');
Writeln(s)
end.

Пример
s1<s2, если для первого несовпадающего символа с номером i s1[i]<s2[i]
1<2, 1[]<2[]

0 0

2 года назад

Исторический документ информатика2й класс

Рыбалкина Олеся В...

Папирус- это исторический документ.
Использовался еще в III тысячелетии до н. э.

0 0

4 года назад

При передачи радиограммы было потерянно разбиение на буквы, но известно,что в радиограмме использовались только следующие буквы:

loltrol877 [273]

Задание полность скинь, а то неполное.

0 0

4 года назад