Помогите!!!!! Пожалуйста !!! Для поступления!!!!

Помогите!!!!! Пожалуйста !!! Для поступления!!!!

Задать свой вопрос
1 ответ
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 (t1gt;=0)and(t1lt;a) then writeln(f2,'S')
 else if (t1gt;=a)and(t1lt;a+b) then writeln(f2,'E')
  else if (t1gt;=a+b)and(t1lt;2*a+b) then writeln(f2,'N')
   else writeln(f2,'W');
close(f1); close(f2);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт