составить алгоритм и программу : найти сумму квадратных корней от 1 до 9
5-9 класс
|
uses crt;
var
b,a,i:integer;
begin
a := 1;
for i := 1 to 9 do begin
b := sqr(a) + b;
a:= a + 1;
end;
writeln ('Ответ=',b);
End.
Другие вопросы из категории
«Операционная
система, классификация и функции »
марсианину Коляйно известны возраст папы и возраст мамы. Он хочет узнать, кто
из них старше, но никак не может разобраться. Помогите ему в этом.
Input
Со стандартного
устройства ввода вводится через пробел 2 целых положительных числа, не
превосходящих 10000 – возраст папы и возраст мамы Коляйно.
Output
Нужно выдать на
стандартное устройство вывода одно из следующих сообщений:
“Mother is older than father” – если мама старше папы
смог достигнуть цели, а помощники вернулись назад?
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
1)Найти сумму чисел от 1 до 10
2)Найти сумму чётных чисел от 2 до 30
3)Найти сумму нечётных чисел от 1 до 30
4)Найти произведение чисел от 1 до 10
5)Найти произведение чётных чисел от 10 до 20