Программы для pascal, решите 1 и 5 пожалуйста
Программы для pascal, решите 1 и 5 пожалуйста
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET 3.1 сборка 1200
begin
var s := 0.0;
for var i := 5 to 25 do
s := s + 1 / i;
writeln(s);
end.
begin
var productivity := 20.0;
var year := 0;
repeat
year += 2;
productivity *= (1 + 0.05)
until productivity >= 25;
writeln(year);
end.
Не нашли ответ?
Похожие вопросы