Pascal ABC
5-9 класс
|
9 класс
Помогите с решением
var i,n,a:integer;
s:real;
begin
write('введите n' , n);read(n)
write('введите а); read(a);
for i:=1 to n do
if i mod 2 =1 then s:=s+1/(power(a,i)
write(' ===== ',s);
end.
Другие вопросы из категории
1 Гбайт памяти за шесть месяцев. На компьютере одновременно обнаружены сразу все четыре вируса. Сколько гигабайтов они заполнят за один месяц?
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Вот проверьте здесь гдето ошибка
program abc;
var a,b,c:integer;
begin;
write ('Длина равна=')
read(a);
write ('Ширина равна=')
read(b);
c:=a*b
write ('Площадь='c');
readln;
end.
Мне показало что в строке
сортирует массив ПО УБЫВАНИЮ и ищет в нем элемент, равный X (это число вводится с клавиатуры). Использовать двоичный поиск.