Написать программу через repeat.

Дано натуральное число n>10. найти первую цифру данного числа

Question

Жеша

2 июня, 05:56

+1

Ответы (1)

Знаете ответ на вопрос?

Филиппина · Answer 1

var n: integer;

begin

readln (n) ;

repeat

n: = n div 10;

until n<10;

writeln (n) ;

end.

Написать программу через repeat.Дано натуральное число n>10. найти первую цифру данного числа