Question

Напишите программу в Delphi 7, к данной задаче или составьте математическую модель (напишите с помощью кода). Очень срочно, я не пойму это программирование ! Но нужно решить , на оценку ! Прикрепите пожалуйста в файле delphi чтобы я смог на компьютере открыть !

Answer 1

var
    k, e, m, n: integer;

begin
    readln(k, e, m, n);
    if (k + e) mod 2 = (m + n) mod 2 then
        writeln('Одного цвета')
    else
        writeln('Разных цветов');
    
    if (k = m) or (e = n) then
        writeln('Прямая ладья')
    else
        writeln('Косая ладья через ', k, ',', n);
end.

Answer 2

если вводить через пробел то числа просто в строчку пишутся бесконечно , я ввожу так цифра интер цифра интер цифра интер цифра интер потом вылезает окно с ошибкой

Answer 3

а теперь ввожу цифры 1 2 3 4 и она вообще быстро закрывается черное окно

Answer 4

Invalit nomerik imput

Answer 5

попробуй так. одно число за раз

Answer 6

var
k, e, m, n: integer;

begin
write('введите координату = ');read(k);
write('введите координату = ');read(e);
write('введите координату = ');read(m);
write('введите координату = ');read(n);
if (k + e) mod 2 = (m + n) mod 2 then
writeln('Одного цвета')
else
writeln('Разных цветов');

if (k = m) or (e = n) then
writeln('Прямая ладья')
else
writeln('Косая ладья через ', k, ',', n);
end.