Question

Паскаль:Найти кол-во двухзначных чисел, в записи которых встречается цифра 6

Answer 1

var
a,b,i:integer;
begin
a:=0;
for i := 10 to 99 do 
   if (i mod 10=6) or (i mod 100 div 10 =6)  then  inc(a);
  writeln(a);
  readln;
end.