11) Після якого
службового слова
записують умову?
1. input
2. if
3. for
4.in
5) Якими службовим словом починають описувати функцію?
1. front
2. pack
3. def
4. button
7) За до якого виразу можна в програмі отримати текст,що міститься в текстовому полі ent?
1. get.ent()
2. ent=Entry (text)
3. ent=Entry(get)
4. ent.get()
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.