Помогите написать программу Паскаль,очень прошу,вообщем не шарю в программках,а так 2
Помогите написать программу Паскаль,очень прошу,вообщем не шарю в программах,а так 2 поставят!!!
Задачка A: Ввести натуральное число и найти сумму его цифр. Пример: Введите естественное число: 12345. Сумма цифр 15. Задачка B: Ввести естественное число и определить, верно ли, что в его записи есть две одинаковые числа, стоящие рядом. Пример: Введите натуральное число: 12342 Нет. Пример: Введите естественное число: 12245 Да.
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.