Напишите программу в Delphi 7, к данной задаче или составьте математическую модель (напишите с помощью кода). Очень срочно, я не пойму это программирование ! Но нужно решить , на оценку ! Прикрепите пожалуйста в файле delphi чтобы я смог на компьютере открыть !
У вас не Windows 8?
program zadaha3b;{$APPTYPE CONSOLE}uses SysUtils; var k, l, m, n: integer;begin readln(k,l,m,n); if (k+l+m+n mod 2 = 0) then writeln('ïîëÿ îäíîãî öâåòà') else writeln('ïîëÿ ðàçíûõ öâåòîâ')end.
Windovs 8
Delphi 7
вводить надо через пробел или через ентер
ввожу через запятую
я воожу а чет не проверяется
и как координаты вводить в программе ?
вот это написал пока , не знаю прав или нет
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.
а он ошибку в конце выдает
попробуй так. одно число за раз
Invalit nomerik imput
а теперь ввожу цифры 1 2 3 4 и она вообще быстро закрывается черное окно
если вводить через пробел то числа просто в строчку пишутся бесконечно , я ввожу так цифра интер цифра интер цифра интер цифра интер потом вылезает окно с ошибкой
просто 4 числа это как именно?
какую ошибку?
цифра пробел цифра пробел цифра пробел цифра
я ввожу просто 4 числа
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.