Паскаль.

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

Question

Минай

30 декабря, 21:02

+5

Ответы (1)

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

Синклитикия · Answer 1

Var n:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

While n div 100 > 0 do

Begin

n:=n div 10

End;

WriteLn (n)

End.

Паскаль.Задано натуральное число n. Вывести первые две цифры заданного числа.