нужна помощь

[DM_bite]

а это должно как нам объяснили должно присутствовать непосредственно в задаче
x:=abc
a:=x div 100
b:=x mod 100 div 10
c:=x mod 10

А каким образом, извините, приписюлить это непосредственно к задаче? Ответьте на вопрос и я, возможно, помогу
P.S.:Оффтопим ,конечно, по-страшному...

[maladoy]

var a,b,c,x,k:integer;
begin 
k:=0;
for x:=150 to 250 do begin
 a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10 ;
if ((a+b+c) mod 2) = 0 then inc(k);
end;l
writeln(k);
readln;end.

судя по этому

x:=abc
a:=x div 100
b:=x mod 100 div 10
c:=x mod 10

нужно найти количество чисел (150..250) сумма цифр у которых кратна 2

[Юзверь]

Меня последнее время мучает вопрос связанный с почтой. Конкретнее, мне нужно узнать, каким образом можно определить почту пользователя. К примеру, на обычном форуме есть пользователь "Вася", мне нужно узнать его почту, каким способом можно это сделать?

[начинающий кодер]

Спросить у "васи" как вариант!

[Юзверь]

Вот как раз и без "спросить" мне нужен вариант