Вывести в заданном порядке дробные части всех чисел из данного набора

@AksIoMa · Регистрация: 26.02.2011

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

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

@romcka-x · 28.02.2011, 00:17

Pascal

uses crt;
var i,n:integer; pr:real;
a:array[1..100] of real;
b:array[1..100] of real;
begin
write('n= '); readln(n);
for i:=1 to n do
begin
  write(i,'-й = ');readln(a[i]);
end;
pr:=1;
for i:=1 to n do
begin
   b[i]:=frac(a[i]);
   write(b[i],' ');
   pr:=pr*b[i];
end;
writeln;
writeln('Произведение = ',pr);
end.

@AksIoMa 0 / 0 / 0 Регистрация: 26.02.2011 Сообщений: 31
		1
	Вывести в заданном порядке дробные части всех чисел из данного набора 27.02.2011, 22:00. Показов 1767. Ответов 1 Метки нет (Все метки) дано число n и набор из n положительных вещественных чисел. вывести в том же порядке дробные части всех чисел из данного набора(как вещественные числа с нулевой целой частью), и произведение всех дробных частей 0

	28.02.2011, 00:17

Вывести в заданном порядке дробные части всех чисел из данного набора

Решение