Var a1,a2,b1,b2,c1,c2:integer; begin writeln('Координаты превой клетки'); writeln('введите номер столбца'); readln(a1); writeln('введите номер строки'); readln(a2); writeln('Координаты второй клетки'); writeln('введите номер столбца'); readln(b1); writeln('введите номер строки'); readln(b2); if ((a1 mod 2) <> 0) then if ((a2 mod 2) <> 0) then c1:=0 else c1:=1; if ((a1 mod 2) = 0) then if ((a2 mod 2) <> 0) then c1:=1 else c1:=0; if ((b1 mod 2) <> 0) then if ((b2 mod 2) <> 0) then c2:=0 else c2:=1; if ((b1 mod 2) = 0) then if ((b2 mod 2) <> 0) then c2:=1 else c2:=0; if c1=c2 then writeln('YES') else writeln('NO') end.
Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.
Программа:
program z; var k,s,x:integer; begin k:=0; {начальное значение количества двузначных чисел} s:=0; {начальное значение суммы двузначных чисел} while True do {открываем бесконечный цикл} begin readln(x); {вводим число х} if x=0 then break; {если введенное число равно 0, то остановить цикл} if (x>9)and(x<100) then {если число двузначное, т.е. от 10 до 99} begin k:=k+1; {количество увеличиваем на 1} s:=s+x; {увеличиваем предыдущее значение суммы на число х} end; end; if k=0 then writeln('NO') {если двузначных чисел не было, то вывод NO} else writeln(s/k); {иначе вывод ср.арифметического} end.
ответ:FREE FIRE наиболее известная игра из-за хорошей графики и оптимизации по-этому она популярная в жанре Королевской битвы
Объяснение: