Дано натуральное число. найдите первую цифру числа. 0

Question

Дано натуральное число. найдите первую цифру числа. 0

Answer 1

Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.

Comments

что делать, когда я ввела это

---

А куда Вы ввели это?

---

в pascal

---

Запускаете программу, вводите нужное число, получаете ответ

---

как запустить программу, ctrl+F9?

---

Нажать на треугольничек) Как на магнитофоне