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

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

Первая программа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;beginwriteln('Введите целое число:');readln(x);z:=x;while z <> 0 do beginleng += 1;z:=z div 10;end;SetLength(a,leng+1);for i:=leng downto 1 do begina[i]:=x mod 10;x:=x div 10;end;for i:=1 to leng do beginfor j:=i to leng-1 do beginif(a[i] = a[j+1]) thenk += 1;end;end;if(k > 0) thenwriteln('Да')elsewriteln('Нет');end.

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы