Паскаль: написать программу выводит первую цифру 2-х значного числа

Question

Информатика

Аис

12 сентября, 14:57

Паскаль: написать программу выводит первую цифру 2-х значного числа

+4

Ответы (1)

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

Севинч · Answer 1

var

n: Integer;

begin

Write ('Число: ') ;

readln (n) ;

if (n > 9) and (n < 100) then

begin

n : = n div 10;

WriteLn ('Первая цифра числа - ', n) ;

end

else

WriteLn ('Число не 2-хзначное') ;

end.