Var a,b,i,n,j,l,ier:integer; s:string; p:boolean; begin Write('Введите границы интервала в виде пары натуральных чисел '); Read(a,b); n:=0; for i:=a to b do begin Str(i,s); l:=Length(s); if l=1 then Inc(n) else begin j:=1; repeat p:=(s[j]=s[l-j+1]); Inc(j) until (j>l) or (not p); if p then Inc(n) end end; Writeln('Количество палиндромов равно ',n) end.
Тестовое решение: Введите границы интервала в виде пары натуральных чисел 1550 2450 Количество палиндромов равно 10
Program lol (input, output); var a, n, b, i, p,s,g m:integer; c:real; begin n:=Random(10000); writeln (n); a:=n; b:=0; c:=0; p:=1; g:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; g:=g*s; b:=b-1; end; writeln (c); writeln (g); end.
program lol (input, output); var a, b, i, z:integer; begin b:=0; a:=3; z:=0; while a > 2 do begin read (a); z:=0; for I:=2 to a do begin if a mod I = 0 then begin z:=z+1; if (a=I) and (z=1) then b:=b+1; end; end; end; writeln (b); end.
Program lol (input, output); var a, n, b, i, p,s,g m:integer; c:real; begin n:=Random(10000); writeln (n); a:=n; b:=0; c:=0; p:=1; g:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; g:=g*s; b:=b-1; end; writeln (c); writeln (g); end.
program lol (input, output); var a, b, i, z:integer; begin b:=0; a:=3; z:=0; while a > 2 do begin read (a); z:=0; for I:=2 to a do begin if a mod I = 0 then begin z:=z+1; if (a=I) and (z=1) then b:=b+1; end; end; end; writeln (b); end.
a,b,i,n,j,l,ier:integer;
s:string;
p:boolean;
begin
Write('Введите границы интервала в виде пары натуральных чисел ');
Read(a,b);
n:=0;
for i:=a to b do
begin
Str(i,s);
l:=Length(s);
if l=1 then Inc(n)
else begin
j:=1;
repeat
p:=(s[j]=s[l-j+1]);
Inc(j)
until (j>l) or (not p);
if p then Inc(n)
end
end;
Writeln('Количество палиндромов равно ',n)
end.
Тестовое решение:
Введите границы интервала в виде пары натуральных чисел 1550 2450
Количество палиндромов равно 10