дано натуральное число. найдите первую цифру числа. 0
Ответы на вопрос
Ответил STAJLb
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.
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Ответил STAJLb
0
А куда Вы ввели это?
Ответил cleverbanana01
0
в pascal
Ответил STAJLb
0
Запускаете программу, вводите нужное число, получаете ответ
Ответил cleverbanana01
0
как запустить программу, ctrl+F9?
Ответил STAJLb
0
Нажать на треугольничек) Как на магнитофоне
Новые вопросы