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 20) and (b mod 20) then v:=v+1; end else if i mod 20 then v:=v+1; if v=n then break; end; rewrite (fl2) ; writeln (fl2, v) ; close (fl1) ; close (fl2) ; end. ребят мне сказали что А файл input. txt есть? И плюс у вас алгоритм неверный. Во первых, вы не проверяете каждое и на четность. Вы проверяете 2 правых числа.

Question

Информатика

Роза

11 марта, 10:03

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 20) and (b mod 20) then v:=v+1; end else if i mod 20 then v:=v+1; if v=n then break; end; rewrite (fl2) ; writeln (fl2, v) ; close (fl1) ; close (fl2) ; end. ребят мне сказали что А файл input. txt есть? И плюс у вас алгоритм неверный. Во первых, вы не проверяете каждое и на четность. Вы проверяете 2 правых числа.

+5

Ответы (1)

Знаете ответ?

Мариана · Answer 1

Братан, че ты кипишуешь ... я же уже все решил, исправил и тебе отправил ... и не нужны там правые числа ... там просто не хватает переменной, которая бы запоминала значения i ... а есть файл или нет, это я должен спрашивать ... создай в папке с программой два файла, назови их соответственно и все