Задание:
Помогите надо написать программу в паскале. 1) координаты двух различных полей шахматной доски x1, y1,x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Ладья за один ход может перейти с одного поля на другое» . 2) Дано трехзначное число. Проверить истинность высказывания: «Все цифры данного числа различны» . 3) Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
Решение:
3. If not (A=B) ThenbeginA=A+B; B=A+B; endelsebeginA=0; B=0; end;
Знаете другой ответ?