Question

Сколько чисел от 1 до 100 включительно удовлетворяют такому условию:
(x div 10 = 0) or ((x div 10 mod 2 = 1) and (x >= 50))?

Answer 1

ответ 10. код проги на паскале ниже

program a2;

var i, x: integer;

begin

for i:= 1 to 100 do if (x div 10 = 0) or ((x div 10 mod 2 = 1) and (x >= 50)) then x:=x+1;

writeln(x);

end.