Дано пятизначное число .Вывести на экран его первую цифру
Дано пятизначное число .Вывести на экран его первую цифру
Гость
Ответ(ы) на вопрос:
Гостьprogram n1;
var x:integer;
begin
writeln('введите пятизначное число');
read(x);
x:=x div 10000;
writeln('первая цифра числа=', x)
end.
Гость//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var n:integer;
repeat
n := ReadInteger('Введите число n>9999 и n <99999');
until (n>9999) and (n<99999);
println('Первая цифра числа', n div 10000);
end.
Не нашли ответ?
Похожие вопросы