Var f1,f2:text;
a,b,t,t1:integer;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
readln(f1,a,b,t);
t1:= t mod (2*a+2*b);
if (t1>=0)and(t1<a) then writeln(f2,'S')
else if (t1>=a)and(t1<a+b) then writeln(f2,'E')
else if (t1>=a+b)and(t1<2*a+b) then writeln(f2,'N')
else writeln(f2,'W');
close(f1); close(f2);
end.
Лично мне привычно писать и с mod, и с odd, хотя на разных сайтах я действительно встречала MOD чаще. MOD - оператор, выполняющий деление двух чисел и возвращающий целочисленный остаток. Odd проверяет выражение на нечетность. Когда мы начинали изучать Паскаль, нам говорили только про mod, хотя сейчас odd мне кажется удобней. Так что, возможно, это просто неизвестно решающим, не пробовавшим копнуть глубже в информатику.)
Var a,b, C: real; C - угол между сторонами а и b
begin
read (a,b,c);
S:=1/2*a*b*sin (C);
writeln(s);
end.
Sr=4,5..........................................................................
...............................................................................
...............................................................................
...............................................................................
...............................................................................
...............................................................................
...............................................................................