Question

Вывести 1-ую цифру любого числа. (На языке Pascal)

Answer 1

PasocialOkss0111055001

Answer 2

Program chislo;
Var a,s:integer;
Begin
Write (a);
Read (a);
s:=a div 10; для двузначного
s:=a div 100; для трехзначного
Writeln ('Первая цифра числа ',s);
End.