Перевод десятичных и смешанных дробей из 10-тичной СС в разные ССи обратный перевод. Сложение и вычитание десятичных дробей в разных СС
5-9 класс
|
var
a,b,c,i,n,p,s:integer;
x:real;
p1,g:string;
begin
readln(a);
writeln('is kakoi perevodim?');
readln(b);
if b=10 then begin
writeln('v kakoi perevodim?');
readln(c);
end;
n:=0;
p:=0;
if b<>10 then begin
repeat
x:=exp(ln(b)*n);
s:=Round(x);
p:=p + (a mod 10)*s;
a:= a div 10;
n:=n+1;
until a=0;
end
else begin
repeat
g:=IntToStr(a mod c);
p1:=p1 + g;
a:=a div c;
until a<c;
p1:=p1+IntToStr(a);
end;
if p=0 then begin
for i:=1 to length(p1) do
write(p1[length(p1)-i+1]);
end
else
write(p);
end.
Другие вопросы из категории
нету ни одной артистки.Всего иногородних мужчин 18. из них 13 не артисты среди пассажиров не являющихся артистами 16 мужчин и 11 женщин.6 москвичей не артисты КТО ЕСТЬ КТО?
Читайте также
1001001(во второй степени)
1010010(во второй степени)
101101(во второй степени)
Выполните перевод десятичного в двоичный:
22(в 10 степени)
101(в 10)
81(в 10)
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.