Составить алгоритм вычисления суммы S=3+5+...+99
Var b,s:real; begin S := 3; b := 0; repeat b := 2 + s + b; s := s + 4; until s=99; writeln(b); end.
Это не имеет разницы
Я привык к real
щас подлжди я отвечу
ясно ,а что означает repeat ?
и until
Это зацикливание
у меня готово щас запишу
ну каа
работает?
если работает то сделай этот ответ лучшим.