Информатика, вопрос опубликован 14.03.2019 08:20 amur3453

1. вычислить и вывести на экран первые десять членов последовательности, заданной формулами n-го члена: xn = n²+5. 2. известны фамилия, стоимость работы, время выполнения работы. если работа выполнена раньше, чем за 15 дней,
исполнитель поощряется денежной суммой в размере 10% от стоимости работы. если работа выполнена с опозданием, то исполнителю начисляется пеня размером в 0,5% от стоимости работ за каждый день просрочки. рассчитать итоговые
суммы выплат исполнителям работ на момент их завершения. 3. известна норма выработки деталей и фактическая выработка рабочего. оплата труда рабочему за 1деталь - х руб, за 1деталь сверх нормы надбавка y%. рассчитать величину
оплаты. прошу , нужна.

Ответы
Ответ добавил: Гость

var a: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.

Ответ добавил: Гость

наиболее простым способом перехвата информации является подслушивание.

прослушивание телефона тоже способ перехвата информации.

перехватчики информации в сети с программ снифферов.

перехватчики информации в компьютере это компьютерные вирусы.

Ответ добавил: Гость

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?

Ответ добавил: Гость

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

Больше вопросов по информатике