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

Question

Информатика

Сумхарай

26 марта, 12:37

Паскаль: написать программу выводит первую цифру 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.