program five;
var x,y: real;
begin
writeln('vvedite 2 chislа po 3 chifry ');
readln(x,y);
if (Х div 100 000+(Х div 10 000 mod 10)+(Х div 1000 mod 10))=((У div 100 mod 10)+(У div 10 mod 10)+(У mod 10)) then ( 'bilet yavlyaetsa scastlivam')
writeln;
readln;
end.
var x,y: real;
begin
writeln('vvedite 2 chislа po 3 chifry ');
readln(x,y);
if (Х div 100 000+(Х div 10 000 mod 10)+(Х div 1000 mod 10))=((У div 100 mod 10)+(У div 10 mod 10)+(У mod 10)) then ( 'bilet yavlyaetsa scastlivam')
writeln;
readln;
end.
Комментариев нет:
Отправить комментарий