Журналист
Kirilak 24 октября 2019 в 11:19

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

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.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте