#include <iostream>
#include <clocale>
#include <cstdlib>
using namespace std;
void main(){
setlocale(LC_ALL, "");
int x, y;
cout << "Введите X и Y =>";
cin >> x >> y;
if (x == 0 || y == 0) { cout << "\nНе используйте 0!\n"; system("Pause"); exit(1); }
if (x > 0 && y > 0) cout << "\nПервая четверть\n";
else if (x < 0 && y > 0) cout << "\nВторая четверть\n";
else if (x < 0 && y < 0) cout << "\nТретья четверть\n";
else if (x > 0 && y < 0) cout << "\nЧетвертая четверть\n";
system("Pause");}
1. Товарняк заезжает жопой в тупик, оставляет там 4 вагона и проезжает вперед по главной ветке.
2. Пассажирский проезжает тупик, затем сдает назад в тупик и забирает эти 4 вагона, затем проезжает вперед и сдает назад на главную ветку, где отцепляет 4 товарных вагона.
3. Пункты 1 и 2 повторяются еще два раза и позади пассажирского поезда окажется 12 вагонов товарняка.
4. Товарняк с оставшимися 3 вагонами сдает назад в тупик и пассажирский спокойно проезжает по своим делам. Миссия выполнена - пассажирский пропущен.
5. Товарняк проезжает вперед, затем сдает назад по главной ветке и забирает свои 12 вагонов.
Function gcd(n, m: integer): integer;begin while n <> m do if n > m then n := n - m else m := m - n; gcd := n;end;var i, j, k, n: integer;begin readln(n); k := 0; for i := 1 to n do begin if nod(i, n) = 1 then write(i, ' '); end;end.
program znan;
var
x:array [1..1000, 1..1000] of real;
m,n,i,j:LongInt;
begin
ReadLn(n,m);
for i:=1 to n do
for j:=1 to m do
begin
Read(x[i,j]);
if x[I,j]>=0 then
x[I,j]:=x[I,j]*5 else
x[I,j]:=x[I,j]/2;
end;
end.
