Паскаль.

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

Question

Осип

22 апреля, 15:18

+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. Вывести первые две цифры заданного числа.