19. N санының цифрларының жұп тақтығын анықтайтын процедурасын құру. Program proc9;
var n:longint; k,i:integer;
Procedure san(i:longint);
begin k:=0;
repeat k:=0;
repeat k:=k+1;
i:=I div 10; until i=0; end;
procedure dar(i:integer; var p:longint); {Дар процедурасы}
var j:integer; {онның ш дәрежесін есептеу}
begin p:=1;
for j:=1 to I do p:=p*10; end;
Procedure jup(n:longint);
var x,d:longint;
begin {санның цифрларының жұп-тақтығын анықтайтын цикл}
for i:=1 to k do begin
dar(k-I,d); {D идентификаторы Dar процедурасының орындалуы нәтижесінде 10-ның к-і дәрежесін меншіктейді}
x:=n div d; {х идентификаторы I=1 болғанда санның 1-ші цифрын, І=2 болғанда – 2 ші цифрын, ...,i=k болғанда л цифрын меншіктейді}
write(I,’цифр=’,x);
n:=n mod 2=0 {келесі циклге қалатын санның шамасы}
if x mod 2=0 {цифрлардың жұп-тақтығын салыстыру}
then write(‘бұл цифр жұп’)
else write(‘бұл цифр тақ’); writeln; end; end;
begin readln(n); san(n); jup(n); {негізгі программа}
readln end.
