Здравствуйте.Помогите,пожалуйста,решить задачи в Паскале.Вот: Ввести с клавиатуры несколько дробных чисел, признак окончания ввода – число 1000.Нужно изменить программу так,чтобы она находила: а) дробную часть чисел; б) произве...
Здравствуйте.Помогите,пожалуйста,решить задачи в Паскале.Вот: Ввести с клавиатуры несколько дробных чисел, признак окончания ввода – число 1000.Нужно изменить программу так,чтобы она находила: а) дробную часть чисел; б) произведение чисел, меньших 22; в) сумму чисел, которые попадают в промежуток [10, 50]. Заранее,спасибо большое!)))))
Гость
Ответ(ы) на вопрос:
ГостьProgram SumProizDrob;
Uses crt;
var n:integer;
c,s,pr,dr:real;
begin
clrscr;
write('Input Numbers:');
n:=1;s:=0;pr:=1;dr:=0;
repeat
readln(c);
dr:=frac(c);
writeln('drobnaya chast:',dr:4:4);
n:=n+1;
if (c>9) and (c<51) then
s:=s+c;
if (c<22) then
pr:=c*pr;
until (c=1000);
writeln;
writeln('Summa =',s:4:4);
writeln('Proizved=',pr:4:4);
readkey;
end.
Не нашли ответ?
Похожие вопросы