Информатика

Вопрос/Задача:

Допишите программу на языке Паскаль. См. Фото очень нужна ваша .


Допишите программу на языке Паскаль. См. Фото очень нужна ваша .

Ответы на вопрос

Ответ
Ответ разместил: Гость

program pr1; uses crt; const n=100; m=100; var mas: array[1..n,1..m] of integer; i,j,l,k,v: integer; beginclrscr; for j: =1 to m dofor i: =1 to n do begin randomize; mas[i,j]: =random(100); end; l: =0; v: =0; for j: =1 to m dofor i: =1 to n do begin k: =1; while k< =m do if k=m then k: =k+1 else begin l: =mas[i,k]+l; k: =k+1; end; if mas[i,j]> l then v: =v+1; l: =0; end; writeln(v); end.

Ответ
Ответ разместил: Гость

думаю так.

входной файл input.txt

выходной файл output.txt

ограничение времени 5 секунд

 

пусть  sn=cos(an-cos(an-1+cos(an-2-cos(an-3+…)…).

пусть  an=(…(x+2)x+3)x+4)x+…+n)x+n+1.

требуется для заданных  n  (1< =n< =200)  и  х=1  напечатать выражение, определяющее  sn

в единственной строке  входного файла  задано  n.

в единственной строке  выходного файла  должно содержаться искомое выражение, затем без пробела знак равно и значение выражения с точностью до четырех знаков после точки.

пример входного файла:

5

пример выходного файла:

+2)x+3)x+4)x+5)x+6-+2)x+3)x+4)x+5++2)x+3)x+4-cos((x+2)x+3+cos(x+=-0.4637

Ответ
Ответ разместил: Гость

var

a: array [1..100,1..100] of integer;

n,m,i,j: byte;

sr: real;

sum: integer;

 

begin clrscr;

 

writeln('введи кол-во строк: ');

readln(n);

writeln('столобцов: ');

readln(m);

 

randomize;

for i: =1 to n do

  for j: =1 to m do

  a[i,j]: =random (10)+0;

 

sum: =0;

 

for i: =1 to n do

  for j: =1 to m do

  sum: =sum+a[i,j];

 

sr: =sum/(n*m);

 

writeln('среднее арифметичексое: ',sr);

readkey;

end.

 

p.s.

могу напутать с типами данных

Ответ
Ответ разместил: 111111199

гврвивтвоірво

іщіпцеіливпілчьіирцо

Объяснение:

очиіияьялінмцьвбсд

Похожие вопросы

Вопросов на сайте: