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

Question

Информатика

Демон

11 сентября, 04:35

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

+3

Ответы (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.