1)Составьте алгоритм вычисления куба всех Чётных чисел от 2 до 1002)Составьте алгоритм вычисления суммы кубов всех нечётных чисел от 101 до 301______________________________________________________________________________и обья...
1)Составьте алгоритм вычисления куба всех Чётных чисел от 2 до 100
2)Составьте алгоритм вычисления суммы кубов всех нечётных чисел от 101 до 301
______________________________________________________________________________
и обьясните пожалуйста примерно что да как делалось
Гость
Ответ(ы) на вопрос:
Гостьvar i,s:integer;
begin
s:=0;
for i:=2 to 100 do
if not odd(i) then s+=i*i*i;
writeln(s);
s:=0;
for i:=101 to 301 do
if odd(i) then s+=i*i*i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы