Нужно составить схему алгоритм Ввести число. Если количество его разрядов меньше пяти, то вывести его на экран, дописав нули перед числом так, чтобы в итоге получилось пять знаков. Если количество разрядов больше пяти, то вывести только первые пять разрядов. Если число пятизначное, то вывести его как есть

const

D = 5;

var

a,b: longint;

n,diff: integer;

begin

write('a = '); readln(a);

b := a;

n := 0;

if b = 0 then n := 1;

while b > 0 do begin

b := b div 10;

n := n + 1;

end;

diff := D-n;

if diff > 0 then begin

while diff > 0 do begin

write('0');

diff := diff - 1;

end;

writeln(a);

end

else begin

if diff < 0 then begin

b := a;

while diff < 0 do begin

b := b div 10;

diff := diff + 1;

end;

writeln(b);

end

else

writeln(a);

end;

readln;

end.

алина3798    2   17.04.2022 01:25    7