Question

Сделайте через паскаль

Answer 1

Первая программа

var x,s,z:integer;

begin

 writeln('Введите целое число:');

 readln(x);

 z:=x;

 while z <> 0 do begin

   s:=s + z mod 10;

   z:=z div 10;

 end;

 writeln('Сумма цифр числа ',x,' равна ',s);

end.

Вторая программа

var x,i,z,j,k,leng:integer;

a:array of integer;

begin

writeln('Введите целое число:');

readln(x);

z:=x;

while z <> 0 do begin

leng += 1;

z:=z div 10;

end;

SetLength(a,leng+1);

for i:=leng downto 1 do begin

a[i]:=x mod 10;

x:=x div 10;

end;

for i:=1 to leng do begin

for j:=i to leng-1 do begin

if(a[i] = a[j+1]) then

k += 1;

end;

end;

if(k > 0) then

writeln('Да')

else

writeln('Нет');

end.