Program Pr1; uses crt; var fl1,fl2:text; i,n,v,a,b:integer; Begin clrscr;
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 igt;=10 then begin a:=i div 10; b:=i mod 10; if (a mod 2lt;gt;0) and (b mod 2lt;gt;0) then v:=v+1; end else if i mod 2lt;gt;0 then v:=v+1; if v=n then break; end; rewrite(fl2); writeln(fl2,v); close(fl1); close(fl2); end. ребят мне сказали что А файл input.txt есть? И плюс у вас метод неправильный. Во первых, вы не проверяете каждое и на четность. Вы проверяете 2 правых числа.
Задать свой вопросБратан, че ты кипишуешь....я же теснее все решил, поправил и тебе выслал...и не необходимы там правые числа.....там просто не хватает переменной, которая бы запоминала значения i... а есть файл либо нет, это я должен спрашивать.....сделай в папке с программкой два файла, назови их соответственно и все
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.