Как найти первые две цифры натурального числа в паскале?

Question

Информатика

Алекся

18 февраля, 16:27

Как найти первые две цифры натурального числа в паскале?

+4

Ответы (2)

Знаете ответ на вопрос?

Евстрат · Answer 1

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.

Витяня · Answer 2

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.