Напишите программу в Delphi 7, к данной задаче или составьте математическую модель (напишите с помощью кода). Очень срочно, я не пойму это программирование ! Но нужно решить , на оценку ! Прикрепите пожалуйста в файле delphi чтобы я смог на компьютере открыть !
Приложения:
![](https://st.uroker.com/files/b3e/b3e8b917a2bbe2a422da56cfe6c05364.jpg)
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
если вводить через пробел то числа просто в строчку пишутся бесконечно , я ввожу так цифра интер цифра интер цифра интер цифра интер потом вылезает окно с ошибкой
Ответ дал:
0
а теперь ввожу цифры 1 2 3 4 и она вообще быстро закрывается черное окно
Ответ дал:
0
Invalit nomerik imput
Ответ дал:
0
попробуй так. одно число за раз
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад