X=9
a=10
c=15
<span>b=39
А таблицу такую в глаза не видовал ни разу =)
</span>
Var x,y:integer;
begin
write('x = ');
readln(x);
y:=x div 10 mod 10;
writeln('y = ',y);
end.
Пример:
x = 456
y = 5
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
procedure P(n:integer);
begin
n.ToString.Print(NewLine)
end;
begin
P(ReadInteger('n='))
end.
<u><em>Тестовое решение:</em></u>
n= 123407
1
2
3
4
0
7
Считай сколько 5 мбайт будет в кбитах и Дели это число на 64 и получишь секунды