Дано натуральное число. найдите первую цифру числа. 0
Дано натуральное число. найдите первую цифру числа. 0
Гость
Ответ(ы) на вопрос:
Гостьvar
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Не нашли ответ?
Похожие вопросы