Открытый урок по информатике «Работа с целыми числами» в 10-м классе

Задача 1.
Выделить цифры двухзначного числа

Program chislo_1;

uses crt;

var

x, m1, m2: integer;

Begin

ClrScr;

Writeln('Введите значение x');

Readln (x);

m2:=x mod 10;

m1:=x div 10;

Writeln('Первая цифра= ', m1);

Writeln('Вторая цифра= ', m2);

Readln;

End.

Задача 2. Из четырехзначного числа отбросить количество сотен

Program chislo_2;

uses crt;

var

x, x1, a, m1, m2, m3, m4: integer;

Begin

ClrScr;

Writeln('Введите значение x');

Readln (x);

m4:=x mod 10;

a:=x div 10;

m3:=a mod 10;

a:= a div 10;

m2:= a mod 10;

m1:= a div 10;

x1:=m1*1000+0*100+m3*10+m4*1;

Writeln('Исходное число=', x);

Writeln('Полученное число=', x1);

Readln;

End.

Выделить цифры четырехзначного числа

Трассировочная таблица

4397

4397 mod 10

7 {последняя цифра}

4397

4397 div 10

439

439

439 mod 10

9 {предпоследняя цифра}

439

439 div 10

43

43

43 mod 10

3 {вторая цифра}

43

43 div 10

4 {первая цифра}