Notepad (Notepad++, STDUViewer), Word (Writer), Paint (GIMP, Photoshop, XnView), Acrobat reader (STDUViewer), 7zip (winrar).
В скобках - программы, тоже открывающие данные файлы.
Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v+1;
end
else if i mod 2<>0 then v:=v+1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
Все работает я проверил
<span>System.Math.Sin(от чего)</span>
Не будет работать если у переменной "а" будет максимальное значение
если a>b то M:=a if a>b then M:=a;
иначе M:=b всё else M:=b;
если c>b то M:=c if c>b then M:=c
<span>иначе M:=b всё else M:=b;
</span>если a>c то M:=a if a>c then M:=a
иначе M:=c всё else M:=c;
2в степени i=256
i=8
8 бит -вес одного символа.
ответ: 8 бит
Xroot, ваше решение является неверным!