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

Question

Информатика

Шарко

20 сентября, 02:04

Напишите программу, которая для введенной десятичной дроби выполняет сдвиг десятичной точки на указанное число разрядов (позиций) вправо (если количество разрядов задано положительное) или влево (если количество разрядов задано отрицательное). язык 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.