Как найти первые две цифры натурального числа в паскале?
Как найти первые две цифры натурального числа в паскале?
Гость
Ответ(ы) на вопрос:
Гостьprogram al;
var n:integer;
begin
writeln('n=');
readln(n);
if (n >9) and (n<100) then writeln(n);
if (n > 99) and (n<1000) then writeln(n div 10);
if (n >1000) and (n<10000) then writeln(n div 100);
if n>10000 then writeln(n div 1000);
readln;
end.
Гостьvar
n:longint;
i,d:integer;
begin
ClrScr;
Write('n='); Read(n);
if n<100 then Writeln(n:2)
else begin
repeat
n:=n div 10;
if n<100 then Writeln(n:2)
until n<=99;
end;
Readkey
end.
Не нашли ответ?
Похожие вопросы