Регистрация
Fjk123cg
18.04.2023 08:33
Информатика
Есть ответ 👍

Используя цикл while, напишите программу, вычисляющую сумму кубов чисел от 1 до введённого целого числа m.​

127
133
Посмотреть ответы 2

Ответы на вопрос:

LysaPysa
LysaPysa
4,8(7 оценок)
var i,m,sum: integer; beginread(m); while i<m dobegini:=i+1;sum:=sum+i*i*i; end;write(sum); end.

Пример работы:

1*1*1 + 2*2*2 + 3*3*3 + 4*4*4 + 5*5*5 = 1+8+27+64+125 = 225


Используя цикл while, напишите программу, вычисляющую сумму кубов чисел от 1 до введённого целого ч
irina567890
irina567890
4,8(16 оценок)

program n_1;

var i, a, b, c: integer;

begin

    a: =0; b: =0;

    for i: =1 to 10 do begin

        read(c);

        if c mod 2 = 0 then a: =a+1

        else b: =b+1;

    end;

    writeln('вы ввели ', a, ' четных чисел и ', b, ' нечетных');

end.

Популярно: Информатика