В Паскале!!!Ввести целое число и отыскать сумму его цифр1) Ввести целое
В Паскале!!!
Ввести целое число и отыскать сумму его цифр
1) Ввести целое Число - 1234 -
Сумма цифр числа одинакова 10
2) Ввести целое число и найти, правильно ли, что в его записи есть 2 схожие числа.
Пример. Введите целое число - 1234 - НЕТ 1224 - ДА.
Помогите пожалуйста!)))
Задать свой вопрос
1 ответ
Влад Кашанский
1)Задачка решается несколькими способами. Можно перевести число в строку и с поддержкою строковых функций (и процедур) найти, есть ли в ней одинаковые знаки.
Еще один метод (на мой взор, чуток-чуток попроще) содержится в том, чтоб просто сосчитать количество каждой числа в числе:
Пусть у нас есть массив col[0..9], который будет беречь количество цифр. Сосчитать количество каждой цифры в массиве ch можно так:
while (ch mod 10)gt;0 do begin
c:=ch mod 10;
ch:=ch div 10;
col[ c ]:=col[ c ]+1;
end;
Сейчас необходимо просто посмотреть, нет ли в массиве col числа gt;=2 . Если такое есть, то это будет значить, что цифра встретиласи два либо более раза:
b:=false;
for i:=0 to 9 do if col[ i ]gt;=2 then b:=true;
if b then writeln ('да') else writeln('нет');
Кстати, не забудь обнулить массив col перед внедрением.
2)В этой последовательности каждый следующий член равен сумме предшествующего члена и порядкового номера предыдузего члена
1
2=1+1
4=2+2
7=4+3
11=7+4
Явно, задачка на циклы.
Цикл должен отсчитать 10 первых членов:
for i:=1 to 10 do begin...
Внутри мы обязаны сосчитать сам член, записать его и вывести квадрат и куб этого члена.
i - порядковый номер члена, а сам член представим записываем в переменную ch. Тогда он рассчитывается по формуле
ch:=ch+i-1;
Не забудь перед циклом указать начальное значение ch.
Еще один метод (на мой взор, чуток-чуток попроще) содержится в том, чтоб просто сосчитать количество каждой числа в числе:
Пусть у нас есть массив col[0..9], который будет беречь количество цифр. Сосчитать количество каждой цифры в массиве ch можно так:
while (ch mod 10)gt;0 do begin
c:=ch mod 10;
ch:=ch div 10;
col[ c ]:=col[ c ]+1;
end;
Сейчас необходимо просто посмотреть, нет ли в массиве col числа gt;=2 . Если такое есть, то это будет значить, что цифра встретиласи два либо более раза:
b:=false;
for i:=0 to 9 do if col[ i ]gt;=2 then b:=true;
if b then writeln ('да') else writeln('нет');
Кстати, не забудь обнулить массив col перед внедрением.
2)В этой последовательности каждый следующий член равен сумме предшествующего члена и порядкового номера предыдузего члена
1
2=1+1
4=2+2
7=4+3
11=7+4
Явно, задачка на циклы.
Цикл должен отсчитать 10 первых членов:
for i:=1 to 10 do begin...
Внутри мы обязаны сосчитать сам член, записать его и вывести квадрат и куб этого члена.
i - порядковый номер члена, а сам член представим записываем в переменную ch. Тогда он рассчитывается по формуле
ch:=ch+i-1;
Не забудь перед циклом указать начальное значение ch.
Egor Dzhavahov
можете пожалуиста прямо на сто процентов написать решение как будет в программке. Очень срочно надобно пжлл
Денис Прихлеб
я честно не помню,это надобно вспоминать
Любовь Оборская
хорошо Спс
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов