- Учителю
- Открытый урок по информатике «Работа с целыми числами» в 10-м классе
Открытый урок по информатике «Работа с целыми числами» в 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 {первая цифра}