Написать программу паскаль, прошу,вообще не шарю в программах,а так 2 ! «a»: ввести натуральное число и найти сумму его цифр. пример: введите натуральное число: 12345. сумма цифр 15. «b»: ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. пример: введите натуральное число: 12342 нет. пример: введите натуральное число: 12245 да.
Ответы на вопрос:
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.
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.
Популярно: Информатика
-
andreu102415.09.2020 08:04
-
HolyKaktys12.12.2020 22:01
-
Микаэла11101.08.2022 23:37
-
rezeda23128119.05.2022 06:08
-
ELB202.07.2020 05:49
-
elenanovikova2107.05.2023 07:27
-
vazhnenko91204.04.2020 14:46
-
XXX231xxx19.01.2020 11:08
-
ViktoriyaFomina122.10.2020 22:12
-
1АндрейKEK22.01.2023 05:44