Составить блок-схему и написать программу:

Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи)

Question

Информатика

Катеринка

17 ноября, 17:45

Составить блок-схему и написать программу:

Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи)

+1

Ответы (1)

Знаете ответ?

Миколай · Answer 1

Program P1;

var

a, n:longint;

begin

readln (n) ;

a: = (n mod 100) ;

a: = (a div 10) ;

writeln (a) ;

end.

тип переменной longint означает натуральное число, просто более большее