Помогите написать программу Паскаль,очень прошу,вообще не шарю в программах,а так 2 поставят!!!
Задача «A»: Ввести натуральное число и найти сумму его цифр. Пример: Введите натуральное число: 12345. Сумма цифр 15. Задача «B»: Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. Пример: Введите натуральное число: 12342 Нет. Пример: Введите натуральное число: 12245 Да.
Задача «A»: Ввести натуральное число и найти сумму его цифр. Пример: Введите натуральное число: 12345. Сумма цифр 15. Задача «B»: Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. Пример: Введите натуральное число: 12342 Нет. Пример: Введите натуральное число: 12245 Да.
More Questions From This User See All
Answers & Comments
A)
var num, sum, i, temp: Integer;
begin
print('Number: ');
readln(num);
temp:= num;
i:=1;
while(temp <> 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(num<>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.
begin
var s := ReadString('n =');
s.Aggregate(0, (Sum, x)-> Sum + x.toDigit).Println;
var i := 2;
while (i <= s.Length) and (s[i] <> s[i - 1]) do i += 1;
Print(i > s.Length ? 'No' : 'Yes')
end.