СРОЧНО!!!!!.Pascal .Написать программу которая вычисляет кол-во 2 значных чисел от 10 до...

Question

СРОЧНО!!!!!.
Pascal .Написать программу которая вычисляет кол-во 2 значных чисел от 10 до 99 где первая цифра = второй

Answer 1

Var a,b:integer;beginfor a:=10 to 99 dobeginif (a div 10) = (a mod 10) thenbeginb:=b+1;end;end;writeln(b);end.

Comments

var a,b:integer;
begin
for a:=10 to 99 do
begin
if (a div 10) = (a mod 10) then
begin
b:=b+1;
end;
end;
writeln(b);
end.