дан массив из 10 элементов. каждый следущий элемент равен сумме всех предыдущих. вывести задачу на экран.
дан массив из 10 элементов. каждый следущий элемент равен сумме всех предыдущих. вывести задачу на экран.
Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.
28 января 2010 в 1:01
незабесплатно решу)
27 января 2010 в 22:03
ПОМОГИТЕ
Є дані про автомобілі чотирьох моделей. Як вхідне дане ввести номер моделі і отримати характеристики: рік випуску і ціну. Нужно двумя способами через if и через case
27 января 2010 в 21:05
интересно, а что сложного сделать это самой?
27 января 2010 в 14:04
не знаю, учительница так сказала
27 января 2010 в 14:03
ой, я забыла написать что первый и второй заданы)))))
27 января 2010 в 14:03
program fib;
var a:array[1..10] of double;
i,j:integer;
s:double;
begin
write('Введите первый элемент a[1]='); readln(a[1]);
write('Введите второй элемент a[2]='); readln(a[2]);
writeln('a[1]=',a[1]);
writeln('a[2]=',a[2]);
for i:=3 to 10 do begin
s:=0.0;
for j:=1 to i-1 do s:=s+a[j];
a[i]:=s;
writeln('a[',i,']=',a[i]);
end;
end.
27 января 2010 в 14:03
спасибо, чмоки!!!!=****)
27 января 2010 в 14:03
а точно вывести задачу, а не решение?
27 января 2010 в 14:02
а чему равен первый? у которого нету предыдущих