Рассматривается множество целых чисел, принадлежащих числовому отрезку [2095; 19402], которые являются простыми числами и у которых первая цифра больше последней. Найдите количество таких чисел и наибольшее такое число, которое оканчивается на 21. В ответе запишите два целых числа: сначала количество, затем наибольшее такое число, которое оканчивается на 21.
var n, x, L, F, k, kint, max:integer;
begin
kint := 0;
max := 0;
for n := 2095 to 19402 do begin
x := n;
k := 0;
while x > 0 do begin
k := k + 1;
if k = 1 then
L := x mod 10;
F := x mod 10;
x := x div 10;
end;
if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin
kint := kint + 1;
if n > max then
max := n;
end;
end;
writeln(kint,' ',max);
end.
Объяснение:
F - первая цифра числа
L - последняя(Слева направо)