Не получишь. Во-первых, не знаю, законно или нет, но у тебя нет логического выражения в условной конструкции(if).
Во-вторых, опять же, не знаю, если ли в твоем языке функция swap(), которое меняет содержимое, но я бы сделал так:
temp := x[i]; //объяви сначала дополнительную переменную
x[i] = y[i];
y[i] = temp;
Ибо, если судить по твоему коду, ты присваиваешь переменной X значение переменной Y(получается, что теперь X = Y), а затем присваиваешь переменной Y значение переменной X(хотя они уже равны).
a = 600
b = 400
i = 8
I = a * b * i
I = 600 * 400 * 8 = 1920000 бит
Теперь i = 16
Нам нужно найти (a * b )
I = (a * b ) * i
(a * b) = | / i
(a * b ) = 1920000 / 16
( a * b ) = 120000
a = 300
b = 400
Ответ: 300x400
Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.
А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.
Ну незнаю в моем компютере восемь