Дано действительные числа а1.а10. Определить а1+а2^2+а10^10

@_Patrick_ · Регистрация: 07.11.2012

Студворк — интернет-сервис помощи студентам

Дано действительные числа а1...а10. Определить а1+а2^2+a10^10.

@Samhain · 16.04.2013, 14:18

Delphi

const n=10;
 
var a:array[1..n] of real;
    i:integer;
    s:real;
 
begin
writeln('Vvedite 10 chisel');
for i:=1 to n do
  begin
     write(i,'-e chislo = ');
     read(a[i]);
  end;
S:=0;
for i:=1 to n do
       s:=s+exp(ln(a[i])*i);
writeln(s:2:2);
readln
end.

@_Patrick_ 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 23
		1
	Дано действительные числа а1.а10. Определить а1+а2^2+а10^10 15.04.2013, 23:01. Показов 2829. Ответов 1 Метки нет (Все метки) Дано действительные числа а1...а10. Определить а1+а2^2+a10^10. 0

	16.04.2013, 14:18

Опции темы

Дано действительные числа а1.а10. Определить а1+а2^2+а10^10

Решение