вычислить 1+2+4+8+...+210
5-9 класс
|
Нужно написать программу в паскале.
var a,x:integer;
begin
for a:=0 to 210 do
if (a mod 2=0) or (a=1) then
x:=a+x;
writeln(x);
end.
может последнее число 216?
216=2^8; k:=1; for i:=1 to 7 do k:=k+k*2;
Другие вопросы из категории
если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2
количества страниц, которые найдет поисковый сервер по каждому запросу. Ответ запишите в виде последовательности соответствующих букв.
Читайте также
2.вычислите значение логического выражения при всех возможных значениях логических величин A и B; не(не A или не B) или A
3.вычислите значение логического выражения при всех возможных значениях логических величин A,B и C не(A или B и C) или A
4.вычислите значение логического выражения при всех возможных значениях логических величин A и B; B или не A и не B.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.
а) -2/1! +3/2! -...+ (-1)^n *(n+1)/n! (n после единицы это степень)
б) 1!/1+ 2!/ (1+1/2) +....+ n!/ (1+1/2+...+1/n)
№2) дано натуральное n, действительное х, вычислить:
а) x^1 / 1! + x^2 /2+...+ x^n / n!
б)(1/2 - cosx)(2/3-(cos^2)*x)).....( n/(n+1) - (cos^n)* x))