Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию вправо

@daddymushrooms · Регистрация: 20.02.2014

Author24 — интернет-сервис помощи студентам

1.Вывести на экран монитора цифру к-того разряда дробной части действительного числа. Разряды дробной части пронумерованы слева направо, начиная с единицы
2.Вычислить и вывести на экран произведение трёх разрядов дробной части действительного числа. В дроби должно быть не менее 4 разрядов
3. Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию вправо. Например:
Исходное число: 456
Результат: 645

@Puporev · 20.02.2014, 11:42

1.

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:real;
    k,i,n:integer;
begin
write('a=');
readln(a);
write('k=');
readln(k);
a:=frac(a);
for i:=1 to k do
a:=a*10;
write(trunc(a)mod 10);
readln
end.

Добавлено через 10 минут
2.

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:real;
    i,p:integer;
begin
write('a=');
readln(a);
a:=frac(a);
p:=1;
for i:=1 to 4 do
 begin
  a:=a*10;
  p:=p*(trunc(a)mod 10);
 end;
write('p=',p);
readln
end.

Добавлено через 3 минуты
3.

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:integer;
begin
write('a=');
readln(a);
a:=100*(a div 10 mod 10)+10*(a mod 10)+a div 100;
write(a);
readln
end.

Проверки при вводе за вами.

@ZfoxAK · 20.02.2014, 12:26

3.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s,a:string; i:integer;
begin
s:=Edit1.Text;
a:=s[Length(s)];
for i:=1 to Length(s)-1 do
a:=a+s[i];
Edit1.Text:=a;
end;

@daddymushrooms · 20.02.2014, 15:17 **[ТС]**

Большое спасибо! Безмерно благодарен вам!!!!!!!

@daddymushrooms 2 / 2 / 0 Регистрация: 20.02.2014 Сообщений: 38
		1
	Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию вправо 20.02.2014, 11:01. Показов 1824. Ответов 3 Метки нет (Все метки) 1.Вывести на экран монитора цифру к-того разряда дробной части действительного числа. Разряды дробной части пронумерованы слева направо, начиная с единицы 2.Вычислить и вывести на экран произведение трёх разрядов дробной части действительного числа. В дроби должно быть не менее 4 разрядов 3. Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию вправо. Например: Исходное число: 456 Результат: 645 0

@daddymushrooms 2 / 2 / 0 Регистрация: 20.02.2014 Сообщений: 38
	20.02.2014, 15:17 [ТС]	4
	Большое спасибо! Безмерно благодарен вам!!!!!!! 0

Сдвинуть циклически значения разрядов целого неотрицательного трёхразрядного числа на одну позицию вправо

Решение