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

6vyvu 6vyvu    2   12.08.2019 14:10    0

Ответы
djhvh235 djhvh235  04.10.2020 13:40
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика