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.

Все работает я проверил

0 0

4 года назад

Объем сообщения 11 кбайт сообщение содержит 11264 символа какова мощность алфавита к

JuliaSamuseva [434]

<span>Объем = 11 * 1024 = 11264 байт. Соотношение байт с количеством символов - 1 к 1. Значит каждый символ алфавита кодируется одним байтом. В одном байте 8 бит, соответственно мощность алфавита - 2^8 = 256 символов...</span>

0 0

4 года назад

Нужно срочно))) Зарание спасибо!!! Вопрос№1 * Зная,что каждому числу соответствует буква алфавита с таким же порядковым номером,

Таня Петрушенко

1)http://s.idkn.ru/images/original/7/209408/5510467fe8b70e21098ba08c.jpg
Кукушка кукушонку сшила капюшон
2)пв вжф к ухёв пжф
3)комета
4)?
5)?

0 0

4 года назад