№ 20 Ответ: г
№ 21 Ответ: в
№ 22 Ответ: а
№ 23 Ответ: б
№ 24 Ответ: а
№ 25 Ответ: б
№ 26 Ответ: в
№ 27 Ответ: а
№ 28 Ответ: общение, развлечение, денежные операции и т. д.
//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
<span>1024/32, получается 32, поэтому информационный объем уменшился в 32 раза</span>
Var a,b:integer;
begin
readln(a);
readln(b);
writeln(abs(a-b));
end.
1 гигабайт( Гб)= 1024 Мбайта или 210 КБайт