begin
var Пауков := 0;
while Пауков < 9 do
begin
if (37 - 4 * Пауков) mod 3 = 0 then
begin
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end;
end.
Ответ:
program HelloWorld;
var x,y : integer;
begin
x:=15;
y:=12;
while (x<>y) do
begin
if x > y then x:=x-y
else y:=y-x;
end;
if(x=y)then writeln(x);
end.
я не понял откуда появилась переменная V , так что счел это за опечатку.
Объяснение:
1.1 2.3 ...................