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

223

343

Посмотреть ответы 2

Ответы на вопрос:

MiyaGi123

Информатика

4,6(94 оценок)

1. var a,b: integer; begin readln(a,b); if a> 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 x< > y then write('да') else write ('нет'); end.