Валаам
6 год назад
Дано натуральное число. найдите первую цифру числа. 0
ОТВЕТЫ
Ардалионович
Jul 23, 2019
Var
x,y:integer;
begin
readln (x);
while xgt;0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln (Первая цифра = ,y);
end.
x,y:integer;
begin
readln (x);
while xgt;0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln (Первая цифра = ,y);
end.
123
Смежные вопросы:
