1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
begin Randomize; { иниациализация датчика случайных чисел } Write('Элементы массива: '); k := 0; { обнулили счетчик } for i := 1 to n do { цикл для перебора всех элементов } begin x[i] := Random(101); { очередное случайное число в диапазоне [0;100] } if (x[i] mod 2) = 0 then k := k + 1; { если четное, +1 в счетчик} Write(x[i]:5) end; Writeln; Writeln('Количество четных чисел в массиве равно ', k) end.
Тестовое решение:
Элементы массива: 70 19 4 83 79 30 92 97 33 71 Количество четных чисел в массиве равно 4
begin
readln(a);
readln(b);
readln(c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln('объем ',v,' площадь поверхности ',s);
end.