Вопрос Нужно написать программу в Паскале

[ANDREIL]

которая находит количество чисел, содержащих цифру "2", в диапазоне целых чисел от 0 до 1000. Пожалуйста, помогите! Нужно срочно)

 

[SparcoTae]

Есть команда seek

 

[flet111]

прогоняешь от первого до последнего введённого, если наткнулся на 2, то некоей переменной присваиваешь +1, эту переменную в итоге и выводишь.

 

[серж1996]

Есть команда seek

 

[Вова4567]

Держи функцию проверки, есть ли число: function check (n: integer):boolean; var yes: boolean; begin yes:=false; while n > 0 do begin if n mod 10 = 2 then begin yes:=true; break; end; n:=n div 10; end; check:=yes; end; Дальше просто примени её в цикле

 

[macro4warface]

Program l; var k,i:integer; begin k:=0; for i:=1 to 1001 do begin if i mod 2 = 0 then k+=1; end; write(k); end.