//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)<>3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
<span>end.
</span>
Пример ввода:
123
Пример вывода:
3
Лови
#include <bits/stdc++.h>
using namespace std;
int n;
int main() {
cin >> n;
int tmp, t = 0;
tmp = n;
while (tmp > 0) {
t *= 10;
t += tmp%10;
tmp /= 10;
}
if (t == n) cout << "YES\n";
else cout << "NO\n";
}
512*32*64=1048576 символов
1048576*16=16 777 216 бит (информационный объём файла)
1,44*1024*1024*8=12 079 595, 52 бит объём дискеты в битах
16 777 216/12 079 595,52=1,38 - нужно две дискеты