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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы