Найти произведение чисел на интервале [a,b] с шагом 0,7.
Помогите пожалуйста составить алгоритм и программу на паскале.
Помогите пожалуйста составить алгоритм и программу на паскале.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Conststep = 0.7;
var
a, b, p: real;
begin
write('Введите диапазон = ');
readln(a, b);
p := 1;
repeat
p := p * a;
a := a + step
until a > b;
writeln(p);
end.