Найти первую цифру числа - Turbo Pascal (33684)

Формулировка задачи:

Дано натуральное число n (n<9999) найти первую цифру числа

Код к задаче: «Найти первую цифру числа - Turbo Pascal (33684)»

textual
var
  n : integer;
begin
  repeat
    write('введите натуральное число n (<9999): ');
    readln(n)
  until (n > 0) and (n < 9999);
  while n >= 10 do  
    n := n div 10;
  writeln('первая цифра числа: ', n);
  readln
end.

15   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ