Ответ:
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 , так что счел это за опечатку.
Объяснение:
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Крупнейшая в мире локальная сеть создана в Европейском Центре ядерных исследований. Она объединяет несколько тысяч компьютеров и работает с Большим адронным коллайдером. Внутри центра проложено 35000 километров оптического кабеля.
<span>Информация, которую дает коллайдер и другие ускорители, проходит обработку в детекторе и через локальный вычислительный центр поступает в главный центр хранения и обработки данных. Ежедневно компьютерам нужно принять, сохранить, обработать и распределить около одного петабайта данных. Количество ежегодно производимой информации, записанной на CD-диски, было бы равно двадцатикилометровой стопке.</span>