найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b>=-10 ПОМОГИТЕ СРОЧНО.
5-9 класс
|
ПЛИИИИИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!
var b,i,sum,sq:integer;
begin
readln (b);
for i:=-10 to b do
begin
sq:=sqr(i);
sum:=sum+sq;
end;
writeln (sum);
end.
Другие вопросы из категории
компьютере будет происходить следующее: в переменную S вводится возраст Саши, в
переменную М вводится возраст Маши. В качестве результата на экран выводится
фраза "Саша старше Маши" или "Маша старше Саши"
(предполагаем, что кто-нибудь из них обязательно старше). КУМИР
Алина сказала, что Валя
Валя, что это Диана
Галя сказала, что не она
а Диана, что Валя, как всегда, шутит
Правду сказала только одна девочка. Кто занял первое место?
1.Сколько файлов размером 100 байт можно разместить на диске объемом 1.2 МБ и на диске 1.4МБ?
2. В результате повреждения односторонней дискеты 10% секторов оказалось дефектными, что составило 36864 байтов. Какой объем имеет дискета?
Читайте также
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
Помогите плииз.
Даны два целых числа А и В (А меньше В). Найти сумму квадратов всех целых чисел от А до В включительно.