Как в паскале найти сумму двузначных чисел
«ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ PASCAL»
Начало > Глава I. Цифры, Условия > Задачи с решениями
ГЛАВА I
ЗАДАЧИ С РЕШЕНИЯМИ
Разделение числа на цифры и действия с ними
1. Вывести на экран все цифры вводимого с клавиатуры числа.
| Переход Блок-схема |
2. Найти первую цифру вводимого с клавиатуры числа.
| Переход Блок-схема |
3. Найти удвоенное произведение цифр числа, вводимого с клавиатуры.
| Переход Блок-схема |
4. Вычислите сумму старших (первых) цифр всех чисел от 1 до 99.
| Переход Блок-схема |
5. Найти общую сумму цифр всех двузначных чисел.
| Переход Блок-схема |
6. Вычислите, чему равно P — S, где P — произведение , S — сумма цифр числа, вводимого с клавиатуры.
| Переход Блок-схема |
7. Найдите двузначное число, равное сумме квадрата числа его единиц и куба числа его десятков.
| Переход Блок-схема |
8. Найти удвоенную сумму цифр случайного числа из интервала [555; 999].
| Переход Блок-схема |
1. Вывести на экран все цифры вводимого с клавиатуры числа.
Ответ:
число=123
3
2
1.
program cif_01;
uses crt;
var ch, c: integer;
-
clrscr;
write(‘число=’); readln(ch);
while ch< >0 do
-
begin
c:=ch mod 10;
ch:=ch div 10;
writeln(c);
end;
Наверх
Блок-схема
2. Найти первую цифру вводимого с клавиатуры числа.
Ответ:
число=56
5
-
clrscr;
write(‘число=’); readln(ch);
while ch< >0 do
-
begin
c:=ch mod 10;
ch:=ch div 10;
end;
Наверх
Блок-схема
3. Найти удвоенное произведение цифр числа, вводимого с клавиатуры.
Ответ: ch = 1234, P * 2 = 48.
-
begin
-
clrscr;
P:=1;
write(‘ch=’); readln(ch) ;
while ch< >0 do
-
begin
c:=ch mod 10;
ch:=ch div 10 ;
P:=p*c;
end;
Наверх
Блок-схема
4. Вычислите сумму старших (первых) цифр всех чисел от 1 до 99.
Ответ: S=495.
-
begin
-
clrscr;
S:=0;
for i:=1 to 99 do
-
begin
ch:=i;
while ch< >0 do
-
begin
c:=ch mod 10;
ch:=ch div 10
end;
Наверх
Блок-схема
5. Найти общую сумму цифр всех двузначных чисел.
Ответ:
Сумма цифр всех двузначных чисел = 855.
program cif_05;
uses crt;
var ch, ch1, c, S, SUM: integer;
-
ch1 — дубликат числа ch;
с — цифра;
S — сумма цифр для каждого числа;
SUM — общая сумма цифр>
Наверх
Блок-схема
6. Вычислите, чему равно P — S, где P — произведение , S — сумма цифр числа, вводимого с клавиатуры.
Ответ: если ch=124, то P-S=1.
-
begin clrscr;
P:=1;
write(‘ch=’); readln(ch) ;
while ch< >0 do
-
begin
c:=ch mod 10;
ch:=ch div 10 ;
P:=p*c;
S:=S+c
end;
Наверх
Блок-схема
7. Найдите двузначное число, равное сумме квадрата числа его единиц и куба числа его десятков.
Ответ: 24.
-
begin
clrscr;
ch:=9;
repeat
-
inc(ch);
ed:= ch mod 10;
des:= ch div 10 mod 10;
kv:=sqr(ed);
kb:=sqr(des)*des;
Наверх
Блок-схема
8. Найти удвоенную сумму цифр случайного числа из интервала [555; 999]
Ответ:
900
Удвоенная сумма цифр числа = 18
-
с — цифра;
S — сумма цифр числа>
-
clrscr;
randomize;
ch:=random(999-555+1)+555;
writeln(ch);
-
S:=0;
while ch< >0 do
-
begin
c:=ch mod 10;
ch:=ch div 10;
s:=s+c
end;
Наверх
Блок-схема
Как в паскале найти сумму двузначных чисел
Помогите пожалуйста решить задачу очень нужна вот условие её
дано число N. (0≤N≤ 9). Написать программу, которая будет вычеслять сумму всех двузначных чисел в которых нет числа N
Регистрация: 12.11.2010
Сообщений: 8,570
Что не получается? Сами пытались?
| Вадим Мошев |
| Посмотреть профиль |
| Найти ещё сообщения от Вадим Мошев |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 16,191
Наверное, не числа N, а цифры N.
Первая цифра: A mod 10, вторая цифра: A div 10. Далее в цикле for i:=10 to 99 do сравнивайте первую и вторую цифры с N, если не совпадают, то увеличиваем сумму: S:=S+i
Регистрация: 21.10.2014
Сообщений: 4
вот как выгледит оригинал задачи
Дадзены целы лік N (0≤N≤ 9). Написать праграму, якая буде выличвать суму усих двухзначных ликаў? у яких няма личбы N.
я просто перевел)
Регистрация: 12.11.2010
Сообщений: 8,570
Это белорусский язык что ли?
| Вадим Мошев |
| Посмотреть профиль |
| Найти ещё сообщения от Вадим Мошев |
Регистрация: 21.10.2014
Сообщений: 4
угу грусть печаль(
Регистрация: 12.11.2010
Сообщений: 8,570
вам же сказали, как решать?
| Вадим Мошев |
| Посмотреть профиль |
| Найти ещё сообщения от Вадим Мошев |
Регистрация: 21.10.2014
Сообщений: 4
а можете написать полностью код задачи)
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 16,191
Тут пишут полностью: Фриланс (но не за спасибо). А помочь решить не предполагает решить за вас.
Регистрация: 12.11.2010
Сообщений: 8,570
iceKirito
У меня в подписи ссылка. Напишу код, задача простая до жути, будет совсем недорого.
| Вадим Мошев |
| Посмотреть профиль |
| Найти ещё сообщения от Вадим Мошев |
| Страница 1 из 2 | 1 | 2 | Следующая > |
| Похожие темы | ||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| правильно ли решена задача: Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления . | Тишуня | Паскаль, Turbo Pascal, PascalABC.NET | 15 | 15.03.2014 14:38 |
| Вычислить сумму всех положительных чисел одномерного массива (программа на алгоритмическом языке) | ВиталийА | Помощь студентам | 8 | 01.10.2012 00:28 |
| Вычислить сумму всех простых чисел | denicko | Помощь студентам | 0 | 27.10.2010 20:46 |
| Из всех двузначных чисел. | Joker | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 15.09.2010 19:59 |
| Вычислить сумму всех четных чисел в векторе | malova | Microsoft Office Excel | 2 | 31.05.2010 09:09 |
Разработчику о работе с 1С:Предприятие, Pascal, Паскаль
Решение вопросов, возникающие при автоматизации учета с помощью 1С:Предприятие. Паскаль.
Найти сумму цифр двузначного числа в паскале.
17.05.2017 | 
Автор Дмитрий
Найти сумму цифр двузначного числа в паскале.
program Sum_Num1_Num2_Task; // Найти сумму цифр двузначного числа в паскале var i_NUm, i_NUm1, i_NUm2: integer; i_SumNUm: integer; begin i_SumNUm := 0; i_NUm := 48; i_NUm1 := i_NUm div 10; i_NUm2 := i_NUm mod 10; i_SumNUm := i_NUm1 + i_NUm2; // Вывод чисел на экран Writeln('Исходное число: ', i_NUm, ', первая цифра: ', i_NUm1, ', вторая цифра: ', i_NUm2); // вывод суммы цифр двузначного числа Writeln('Сумма цифр: ', i_SumNUm); //завершение работы программы WriteLn('Нажмите , чтобы выйти.'); ReadLn(); end. Найти сумму цифр двузначного числа в паскале.
Рубрика: Pascal (Паскаль) — задачи и решения
Как в паскале найти сумму двузначных чисел
— На 26 апреля 2007 года домашнее задание решить 1-7 задачу из приведённых ниже. Откомпилировать в среде TURBO — PASCAL 7.0 и правильное решение предоставить в рабочей тетради. Лучшие ваши решения будут опубликованы в интернете.
Циклы
1. Составьте программу, выводящую на экран квадраты чисел от 10 до 20.
2. Составьте программу, которая вычисляет сумму чисел от 1 до 100.
3. Составьте программу, которая вычисляет сумму чисел от 1 до N . Значение N вводится с клавиатуры.
4. Составьте программу, которая вычисляет произведение чисел от 1 до N . Значение N вводится с клавиатуры.
5. С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры.
6. Составьте программу, которая печатает таблицу перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов.
7. Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10):
1. саженей в метры ( 1 сажень равна 2,1366 м)
2. футов в метры (1 фут равен 0,3048 м)
3. драхм в граммы (1 драхма равна 3,7325 г)
4. унций в граммы (1 унция равна 29,86 г)
5. фунтов в килограммы (1 фунт равен 0,40951 кг)
6. аршинов в метры (1 аршин равен 0,7112 м)
7. золотников в граммы (1 золотник равен 4,2657 г)
8. дюймов в миллиметры (1 дюйм равен 25,3995 мм)
8. В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?
9. Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.
10. Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5.
11. Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
12. Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.
13. Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15. Напечатать все полученные числа.
14. Ввести с клавиатуры 10 чисел – положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел.
15. Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6.
16. Найти произведение двузначных нечетных чисел, кратных 13.
17. Найти сумму чисел от 100 до 200, кратных 17.
18. Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.
19. Составьте программу, которая вычисляет сумму квадратов чисел от 1 до введенного вами целого числа n .
20. Написать программу, которая по заданным значениям чисел a и b находит a b . В запросе укажите допустимые значения этих переменных ( например, если a – дробное, то b не может быть отрицательным ).
21. В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
22. В ЭВМ вводятся координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке ( a , b ).
23. В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
24. Составить программу, сокращающую обыкновенные дроби.
25. Задано натуральное число N . Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2, 3, 5.
26. Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа.
27. Даны два двузначных числа А и В. Из этих чисел составили два четырехзначных числа: первое число получили путем написания сначала числа A, а затем В; для получения второго сначала записали В, а потом А. Найти числа А и В, если известно, что первое четырехзначное число нацело делится на 99, а второе – на 49.
28. Дано натуральное n . Вычислить: 1/2 2 + 1/4 2 + . + 1/(2 n ) n .
29. Дано натуральное n . Вычислить: 1/1 1 + 1/2 2 + . + 1/ n n .
30. Даны действительное a и натуральное n . Вычислить:
2. 1 + 1 /2 + 1/3 +1/4 + … + 1/n ;
3. 1 + 2 + 4 + 8 + … + 2 10 ;
4. (1 + 2)*(1 + 2 + 3)*…*(1 + 2 + … +10);
5. a(a+1) … (a+n-1) ;
6. 1/a 2 + 1/a 4 + … 1/a 2n ;
7. sin x + sin 2 x + … sin n x;
8. sin x + sin x 2 + … sin x n .
31. Составьте программу вычисления суммы всех двузначных чисел.
32. Дано натуральное n . Получить последовательность b 1 , b 2 , . , bn , где при i =1,2. n значение bi = i !
33. Дано натуральное n , действительные а1 ,а2 . а n . Получить: а1а2 + а2 а3, . , а n -1 а n .
34. У первоклассника Пети m рублей. Мороженое стоит k рублей. Петя решил наесться досыта мороженого, для этого он покупал по одному мороженому и съедал ее до тех пор, пока ему хватало денег. Как Пете узнать, сколько денег останется у него в конце концов? Учтите, что Петя делить еще не умеет, а умеет только вычитать и складывать. Сколько мороженых он может съесть?
35. Бизнесмен взял ссуду m тысяч рублей в банке под 20% годовых. Через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг?
36. С помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.
37. С помощью оператора while напишите программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.
38. С помощью оператора while напишите программу определения идеального веса для взрослых людей по формуле: Ид. вес = рост – 100. Выход из цикла: значение роста = 250.
39. Имеется кусок ткани длиной М метров. От него последовательно отрезаются куски разной длины. Все данные по использованию ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет затребован кусок ткани, большей длины, чем имеется.
40. На соревнованиях по фигурному катанию оценки заносятся в компьютер. Составить программу для вывода на экран лучшего результата после каждого выступления фигуристов.
41. Первоначальное напряжение в цепи равно 200 вольт. Известно, что оно меняется через каждую секунду следующим образом: через одну секунду оно уменьшается на М%, а еще через секунду увеличивается на N %, затем снова уменьшается на М%, потом уменьшается на N % и т.д. Составить программу для определения, через сколько секунд напряжение в цепи превысит 220 вольт.
42. Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры целых чисел. Программа должна использовать цикл while do . Условие выхода из цикла – значение числа, равное 999.
43. Напишите программу, которая определит первое отрицательное число последовательности: y = sin ( i /100), i = 1,2,3…
44. Дано действительное число А, большее 1. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, . первое, большее А и его номер.
45. Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + .
46. С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.
47. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.
· Какой суммарный путь пробежит спортсмен за 7 дней?
· В какой день впервые спортсмен пробежит более 20 км?
· В какой день впервые суммарный путь превысит 60 км?
48. С помощью оператора repeat напишите программу, которая требует у вас пароль, например 111, и если пароль правильный, то печатает сообщение «Молодец!»
49. Составьте программу вычисления степени числа a с натуральным показателем n . (Записать варианты программы с разными видами циклов while , repeat , for ).
50. Составьте программу, суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение.
51. Каждая бактерия делится на две в течение одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая подсчитывает количество бактерий на заданное вами целое значение момента времени.
52. Составьте программу получения в порядке убывания всех делителей данного числа.
53. Разложить число на простые множители.
54. Составьте программу определения наибольшего общего делителя двух натуральных чисел. (Реализовать в виде программы следующий вариант алгоритма Эвклида нахождения наибольшего общего делителя двух натуральных чисел: пока числа не станут равными, большее заменяется на разность большего и меньшего чисел. Когда числа станут равными одному и тому же числу d , то вычисления прекращаются: d равно наибольшему общему делителю исходных чисел).
55. Составьте программу определения наименьшего общего кратного двух натуральных чисел (использовать формулу: НОК*НОД= a * b )..
56. Составьте программу, определяющую максимальное из всех введенных вами чисел. (Пусть признаком конца ввода чисел является введенное число 0.)
57. Дано действительное число b >0. Последовательность a 1 , a 2 ,… образована по следующему закону: a 1 =1, a 2 =2* a 1 +1, …, ai +1 =2* a i +1 ( i =2,3,…). Требуется получить все a 1 , a2,…, меньшие или равные b .
58. Даны натуральное число n и действительное x . Вычислить: x 1 /1! + x 2 /2! + . + x n / n!
59. Найти наибольшее и наименьшее значение функции y = 3 x 2 + x – 4, если на заданном интервале [ a , b ] x изменяется с шагом 0,1.
60. Найти с точностью 0.001 корни уравнений на указанных отрезках:
1. x 2 cos 2x + 1 = 0 , [ 0, p /2 ] ;
2. x 3 + x 2 + x +1 = 0 , [ -2, 1 ] ;
3. x 5 — 0,3 | x-1 | = 0 , [ 0, 1 ] ;
4. 2x — cos x = 0 , [ 0, p /2 ] ;
5. 0,9 x — sin Ö x — 0,1 = 0 , [ 0, 1,5 ] ;
6. tg x — (x+1)/2 = 0 , [ 0, p /4 ] .
61. Пусть a1 = 1; ak = kak-1 + 1/k (k + 1,2, …) . Дано натуральное n . Получить an .
62. Пусть a1 = 1; ak = ak-1/k + k (k + 1,2, …) . Дано натуральное n . Получить an .
64. Составить программу, определяющую, является ли данное число N простым.
65. Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N .
66. Найти все двузначные числа, сумма квадратов цифр которых делится на 13.
67. Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу.
68. Дано натуральное число n . Составить программу, подсчитывающую количество цифр числа n , сумму его цифр и определяющую его первую цифру.
69. В 1202 году итальянский математик Леонард Пизанский (Фибоначчи) предложил такую задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от которых уже через два месяца уже получается новый приплод. Сколько кроликов будет через год, если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие количеству кроликов, которые появляются через каждый месяц, составляют последовательность 1, 1, 2, 3, 5, 8, 13, 21, 34,… Составьте программу, позволяющие найти все числа Фибоначчи, меньше заданного числа N .
70. Найти первые сорок чисел Фибоначчи.
71. Найти первое число Фибоначчи, большее заданного числа М (М>1)
72. Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000.
Напишите программу, которая выведет на экран 10 строк по 5 случайных чисел в диапазоне 0…36.