Вычислить значение выражения

@Sandstop · Регистрация: 18.12.2015

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

Как решить, подскажите пожалуйста

@chealbert · 24.12.2015, 00:25

a)

Pascal

uses crt;
var x,sum:real; i,n:integer;
begin
 clrscr;
 writeln('Vvedite X');
 read(x);
 writeln('Vvedite N');
 read(n);
 sum:=0;
 for i:=1 to n do sum:=sum+(exp(i*ln(x))+n)/(x-n);
 writeln('sum=',sum);
end.

Добавлено через 6 минут
b)

Pascal

uses crt;
const n=5;m=7;
var a:array[1..n,1..m] of integer; k,i,j:integer;
begin
 clrscr;
 randomize;
 k:=0;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=-50+random(100);
     write(a[i,j]:4);
     if a[i,j]<0 then k:=k+1;
    end;
   writeln;
  end;
 writeln('otricatelnih=',k);
end.

...а вообще-то - одна задача - одна тема!

@Sandstop 0 / 0 / 0 Регистрация: 18.12.2015 Сообщений: 9
		1
	Вычислить значение выражения 24.12.2015, 00:04. Показов 888. Ответов 1 Метки нет (Все метки) Как решить, подскажите пожалуйста Миниатюры 0

	24.12.2015, 00:25

Вычислить значение выражения

Решение