/
/
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 правых числа.

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 правых числа.

bookmarkИнформатика access_time personart-kapran chat_bubble2

Информатика Правильный ответ

Просклонять по падежам-Прозрачное озеро

Далее

Помогите, прошу...Каково расстояние между покоящимися шарами массой 100кг каждый, если они притягиваются друг к другу с силой, равной 0,1 Н?

Далее

помогите пожалуйста!!! какие мусорщики бывают в болотах прошу

Далее

About the author

2 комментариев

  1. anena84 11.03.2019 Reply

    Не сидел здесь сейчас, на краю земли. Он находит, как говорить с нами, иногда прямо, иногда косвенно.

  2. anjuta..17 16.03.2019 Reply

    как говориться, Без пользы жить – безвременная смерть.