див и мод. Целочисленная арифметика в языке программирования Паскаль Проанализируйте условия задач

• Название: Целочисленная арифметика в языке программирования Паскаль Проанализируйте условия задач
• Дата: 20.04.2023
• Размер: 1.05 Mb.
• Имя файла: див и мод.pptx
• Тип: Документы; #1077419

Целочисленная арифметика

в языке

программирования

Паскаль

Проанализируйте условия задач

• Дано трёхзначное число. Найдите сумму его цифр.
• В трехзначном числе зачеркнули первую слева цифру и приписали её в конце. Найдите полученное число.
• Дано четырёхзначное число. Найдите число, полученное при прочтении его цифр справа налево.

Выделение цифр числа

div	mod

17 div 3=

5

17 mod 3=

2

17 div 17=

1

17 mod 17=

0

5 div 12=

0

5 mod 12=

2

1327 div 10 =

132

1327 mod 10=

7

1327 div 100 =

13

1327 mod 100=

27

1327 div 1000 =

1

1327 mod 1000=

327

Отбрасывает одну последнюю цифру
Отбрасывает две последние цифры
Отбрасывает три последние цифры
Выделяет последнюю цифру
Выделяет две последние цифры
Выделяет три последние цифры

A mod 10

A div 10

A div 100

A div 1000

A mod 100

A mod 1000

• Ввод исходных данных.
• Выделение цифр числа.
• Сложение цифр числа.
• Вывод результата.

Последняя цифра в десятичной записи целого А (например, 124 4)
Цифра, стоящая в разряде десятков (например, 124 2)
Цифра трехзначного числа, стоящая в разряде сотен (например, 124 1)

124 mod 10=4

(124 mod 100) div 10=2

124 div 100=1

Последняя цифра в десятичной записи целого А (например, 124 4)
Цифра, стоящая в разряде десятков (например, 124 2)
Цифра трехзначного числа, стоящая в разряде сотен (например, 124 1)

A mod 10

(A mod 100) div 10

A div 100

var a,c1,c2,c3, s : integer;

begin

writeln('введите трёхзначное число '); readln(a);

c1:=a div 100;

c2:=(a mod 100) div 10; {или c2:=(a div 10) mod 10;}

c3:=a mod 10;

s := c1+c2+c3;

end.

• Ввод исходных данных.
• Выделение цифр числа.
• Сложение цифр числа.
• Вывод результата.

Тестирование

var a, b, s : integer;

begin

s:=0;

writeln('введите трёхзначное число '); readln(a); {375}

b:=a mod 10; {5}

s := s+b; {0+5=5}

a:=a div 10; {37}

b:=a mod 10; {7}

s := s+b; {5+7=12}

a:=a div 10; {3}

b:=a mod 10; {3}

s := s+b; {12+3=15}

a:=a div 10; {0}

end.

Универсальный способ

Сумма цифр числа

var s, a: integer;

begin

s:= 0;

readln (a);

while a <> 0 do begin

sum:= sum + a mod 10;

a:= a div 10;

end;

writeln (s)

end;

Составить программы для решения задач:

2. Найти цифры четырехзначного числа.

3. В трехзначном числе зачеркнули первую слева цифру и приписали её в конце. Найдите полученное число.

4. Дано четырёхзначное число. Найдите число, полученное при прочтении его цифр справа налево.

5. Определить, является ли счастливым шестизначное число, вводимое пользователем с клавиатуры.

5. (Счастливый номер) Определить, является ли счастливым шестизначное число, вводимое пользователем с клавиатуры.

Счастливым номером называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр.

123321

345246

900900

800710