Visual basik (vbnet)
Дан массив, содержащий неотрицательные целые числа. Необходимо вывести:
– минимальный чётный элемент, если количество чётных элементов не больше, чем нечётных;
– минимальный нечётный элемент, если количество нечётных элементов меньше, чем чётных.
Например, для массива из шести элементов, равных соответственно 4, 6, 12, 17, 9, 8, ответом будет 9 – наименьшее нечётное число, поскольку нечётных чисел в этом массиве меньше.
Visual Basik
вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:
function cycle(a, b) {
while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a
return a;
}
но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:
var a,b: integer;
begin
a : = 32;
b : = 32;
while not (a = b) do
begin
if a > b then begin
a : = a - b;
end else
b : = b - a;
end;
writeln(a);
end.
ответ:
1.
13, вроде бы
1) абдик
2) абджк
3) абвдик
4) абвджк
5) абвжк
6) авжк
7) авджк
8) авдик
9) агек
10) агвжк
11) агвджк
12) агвдик
13) агежк
2.
1.абеил
2.абезл
3.абвеил
4.абвезл
5.абвзл
6.авзл
7.авезл
8.авеил
9.агзл
10.агжзл
11.агжкл
12.адгзл
13.адгжзл
14.адгжкл
15.аджзл
16.аджкл
3.количество путей в город л = сумме путе в города и, з, ж и к (и(3)+з(10)+ж(3)+к(3))=19
4.правильный ответ: 12.
5.в подобных анализ начинают с конечного города (в нашем случае - g). в город g можно попасть из d, f и e ⇒ k(g) = k(d)+k(f)+k(e).
аналогично
k(d) = k(b) + k(f) = 2 + 4 = 6;
k(f) = k(b) + k(c) + k(e) = 2 + 1 + 1 = 4;
k(e) = k(c) = 1;
k(b) = k(a) + k(c) = 1 + 1 = 2;
k(c) = k(a) = 1
k(g) = k(d)+k(f)+k(e) = 6+4+1 = 11
объяснение: