Program gt;
var x1,x2,y1,y2:integer;
begin
readln(x1,y1,x2,y2);
if ((abs(x1-x2)<=1)and(abs(y1-y2)<=1))then writeln('YES')else
writeln('NO');
end.
1) 99 шагов
2) 12 шагов
3) 1 шаг (неэффективно, часть ПЭ не задействовано)
Паскаль:
var i, s : integer;
n: real;
begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.
Также как и в десятичной системе:
- Умножаем делимое и делитель на 10, чтобы избавиться от запятой
- И делим как в обычном двоичном примере (вы же умеете, надеюсь?)
Ответ: 10,1
1) друга ищи, а найдёшь - береги.
2) старый друг лучше новых двух.