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.

Answer 2

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

Answer 3

в pascal

Answer 4

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

Answer 5

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

Answer 6

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