Напишите программу, которая для введенной десятичной дроби выполняет сдвиг десятичной точки на указанное число разрядов (позиций) вправо (если количество разрядов задано положительное) или влево (если количество разрядов задано отрицательное). язык Pascal

Question

Информатика

Сахлия

22 сентября, 07:55

Напишите программу, которая для введенной десятичной дроби выполняет сдвиг десятичной точки на указанное число разрядов (позиций) вправо (если количество разрядов задано положительное) или влево (если количество разрядов задано отрицательное). язык Pascal

+2

Ответы (1)

Знаете ответ?

Йонас · Answer 1

Var r, i:integer;

a:real;

begin

write ('Введите число: ') ;

readln (a) ;

write ('Введите число разрядов (позиций) : ') ;

readln (r) ;

if (r>0) then for i:=1 to r do a:=a*10;

if (r<0) then for i:=1 to abs (r) do a:=a/10;

writeln (a)

end.