Составите программу которая находит сумму квадратов чисел от 1 до 10.Пожалуйста срочно надо!
5-9 класс
|
var
i,sum:Integer;
Begin
for i:=1 to n do
begin
sum := sum + (i*i);
end;
Writeln(sum);
end.
Другие вопросы из категории
равности и сообщает пилоту о необходимых действиях. Для решения этой задачи ему нужно выполнить 100000000 вычислительных операций. Быстродействие компьютера - 1 млн. оп./с. Успеет ли лётчик спасти самолёт, если минимальная высота, на которой самолёт можно вывести из пике, - 2000 метров?
1)Что такое адрес ячейки электронной таблицы?
2) Сколько ячеек электронной таблицы содержит блок E2:G6?
Помогите пожалуйста
Компьютерный вирус А заполняет 2 Гбайта за один месяц, вирус В заполняет 2 Гбайта за два месяца, вирус С заполняет 2 Гбайта за три месяца, вирус D заполняет 2 Гбайта за шесть месяцев. На компьютере одновременно обнаружены сразу все четыре вируса. Сколько Гбайтов они заполняют за один месяц?
Читайте также
1(2)+2(2)+3(2)...+10(2)
1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100.
2) Составьте программу вычисления произведения чисел от 1 до 10.
3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
Var , , : ;
Begin
:=0;
For := to do
Begin
;
;
End;
Writeln(' =', );
End.
Там, где пробелы, вставить что нужно
Напишите программу, которая находит сумму натуральных чисел от 1 до n (n вводится с клавиатуры)