Ну вот пример могу привести: енiң атым Диана, маған 16 жылдарым. 11 сыныпта оқимын. Мен жылға кiшi барлық өз кластастары, өйткенi бастауыш мектепте сыныппен қарғыды. Мен үйiрсек адам өтемiн. Барлық жаңа және қызықты жақсы көремiн. Бос уақытқа жора-жолдастармен еркiнше сайрандаймын, кiтап оқып отырамын, компьютерге отырамын. Менiң фототүсiрушiм. Менi суретке түсiрсiнiм өз үйрендiм. Мен кiм болашақта болғым келемiн әлi тағайындалуға жеткiлiксiз болады, бiрақ менеджерде оқу кетемiн. Қандай менiң жұмысымды болып қойылы сонан соң көбiрек ұнауға қарау
var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
begin
z: =z+1;
a[z]: = b mod 10;
b: =b div 10;
end;
for i: =2 to z-1 do
if a[i]=a[i-1] or a[i]=a[i+1] then
k: =1;
if k=1 then writeln (‘да’)
else writeln (‘нет’);
end.
второй способ:
var a,b,c: integer;
begin
read(a);
k: =0;
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
begin
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
end;
if k=1 then writeln (‘да’)
else (‘нет’);
end.