Напишите, пожалуйста, программки (паскаль).1. Ввести два целых числа, если 1-ое число

Напишите, пожалуйста, программки (паскаль).
1. Ввести два целых числа, если первое число больше второго, то посчитать сумму этих чисел, по другому прибавить ко второму числу 10.
2. Напишите программку, которая по координатам (номеру столбца и номеру строчки) 2-ух клеток шахматной доски определяет, одного они цвета или разного

Задать свой вопрос
Софья Санжарова
У тебя на компьютере компилятор есть?
Димка Ильгов
aууууу...
Алексей Чоп
нет, нету
1 ответ
1.
var a,b:integer;
begin 
readln(a,b);
if agt;b then a:=a+b
else b:=b+10;
print ('a =',a,'b =',b);
end.
2.
var
a,a1,b,b1,x,y:integer;
begin
readln(a,a1,b,b1);
x:=0;
y:=0;
if ((a mod 2=0)and(a1 mod 2=0) or (a mod 2=1) and (a1 mod  2=1)) then
x:=1
else
x:=0;
if ((b mod 2=1)and(b1 mod 2=0) or (b mod 2=0) and (b1 mod  2=1)) then
y:=1
else y:=0;
if xlt;gt;y then write('Да') else write ('Нет');
end.
Илья Сафалов
да,да знаю. Я теснее позже сообразил, что можно и так сделать.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт