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

Question

Информатика

Бобрек

6 февраля, 16:40

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

+5

Ответы (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.