Помогите пожалуйста написать программы: 1)Найти произведение чисел от 6.7 до 7.8 с шагом 0.4 2)Сравнить, что больше сумма ряда 8.5, 8.6,...40.9 или произведение чисел от 1 до 3 с шагом 0.25 3)Вычислить сумму ряда: 0.6, 0.7, 0.8...
Помогите пожалуйста написать программы:
1)Найти произведение чисел от 6.7 до 7.8 с шагом 0.4
2)Сравнить, что больше сумма ряда 8.5, 8.6,...40.9 или произведение чисел от 1 до 3 с шагом 0.25
3)Вычислить сумму ряда: 0.6, 0.7, 0.8, 0.9.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1111
begin
var p:=1.0;
var a:=6.7;
repeat
p*=a; a+=0.4
until a>7.8;
Writeln(p)
end.
// PascalABC.NET 3.0, сборка 1111
begin
var s:=0.0;
var p:=1.0;
var a:=8.5;
repeat
s+=a; a+=0.1
until a>40.9;
a:=1;
repeat
p*=a; a+=0.25
until a>3;
if s>p then Writeln('Сумма больше произведения')
else
if p>s then Writeln('Произведение больше суммы')
else Writeln('Сумма и произведение равны')
end.
begin
Writeln(0.6+0.7+0.8+0.9)
end.
Не нашли ответ?
Похожие вопросы