Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)
5-9 класс
|
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.
Другие вопросы из категории
В салоне небольшого самолета летят 42 пассажира.Некоторые из них москвичи,остальные-иногородние.Среди москвичей 9 мужчин.Некоторые из пассажиров артисты,но ни одна из иногородних женщин не является артисткой. Всего иногородних мужчин 18.Изних 13-не артисты,Среди пассажиров,не являющихся артистами,16 мужчин и 11 женщин.6 москвичей не артисты.Разберитесь,пожалуйста,с пассажирами:кто есть кто?
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль