Пожалуйста, сделайте на pascal
Приложения:
Ответы на вопрос
Ответил iolandavalerypad353
1
Ответ:
begin
var n := ReadInteger();
var n1 := 10;
for var i := 2 to n do
n1 += i mod 2;
var res := n.IsOdd ? n1 div 10 : n1 mod 10;
print(res)
end.
Объяснение:
Новые вопросы
var s:='';
for var i:=10 to 99 do
s += i.ToString;
var n := ReadInteger();
Println(s[n]);
end.