Помогите написать программу Паскаль,очень прошу,вообщем не шарю в программках,а так 2

Помогите написать программу Паскаль,очень прошу,вообщем не шарю в программах,а так 2 поставят!!!



Задачка A: Ввести натуральное число и найти сумму его цифр. Пример: Введите естественное число: 12345. Сумма цифр 15. Задачка B: Ввести естественное число и определить, верно ли, что в его записи есть две одинаковые числа, стоящие рядом. Пример: Введите натуральное число: 12342 Нет. Пример: Введите естественное число: 12245 Да.

Задать свой вопрос
Василий Маркьянов
и правильно сделают, это плохо если совершенно не "шарите", желая с иной стороны может и хорошо, а для чего для вас другая оценка, она же будет все одинаково не ваша
Мурченко Никита
и верно сделают, это плохо если совершенно не "шарите", хотя с иной стороны может и хорошо, а для чего для вас иная оценка, она же будет все равно не ваша
Елена Моригева
и верно сделают, это плохо если совершенно не "шарите", желая с другой стороны может и хорошо, а для чего для вас иная оценка, она же будет все одинаково не ваша
2 ответа

begin

 var s := ReadString('n =');

 s.Aggregate(0, (Sum, x)-gt; Sum + x.toDigit).Println;

 

 var i := 2;

 while (i lt;= s.Length) and (s[i] lt;gt; s[i - 1]) do i += 1;

 

 Print(i gt; s.Length ? 'No' : 'Yes')

end.


A)

var num, sum, i, temp: Integer;


begin


print('Number: ');


readln(num);


temp:= num;


i:=1;


while(temp lt;gt; 0) do


 begin


 temp:= temp div 10;


 if(temp =0) then break;


 i:= i+1;


 end;


temp:= i;


sum:=0;


for i:=0 to temp do


 begin


 sum:= sum + (num mod 10);


 num:= num div 10;


 end;


println('Sum: ',sum);


end.


B)


var num, temp: Integer;

   bool:boolean;    

begin

readln(num);

temp := num mod 10;

num := num div 10;

while(numlt;gt;0) do

 begin

 if (temp = num mod 10)  

   then

   begin

   bool:=true;

   break;

   end;

 temp := num mod 10;

 num := num div 10;

 end;

if bool then write('Yes') else write('No');

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт