Светлана , ответ добавлен 13.04.2018 в 14:16

StrN = Str$(N) ' Переводим число в строковое представление
strX = Mid(strN, 3, 2) ' 3 и 4 цифры
strY = Mid(strN, 5, 2) ' 5 и 6 цифры
Print strX
Print strY
End

 0   

Семеняка Н.А. , ответ добавлен 13.04.2018 в 14:14

Var x: integer;
begin
readln(x);
writeln(x div 1000 mod 100)
end.

var x: integer;
begin
readln(x);
writeln(x div 10 mod 100)
end.

 0