Информатика, вопрос опубликован 16.03.2019 19:20 kirill67r

Дано натуральное n. вычислить s=1+1/22-1/23+…(-1)n/2n (программу написать)

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

pascal

 

for i : = 1 to 7 do

  mas[i] : = read(x);

min : = mas[1];

for i : = 1 to 7 do

  begin

  if min > mas[i] then

    begin

    min : = mas[i];

    end;

  end;

writeln(min);

 

массивы и переменные не стал объявлять ибо сами сможете наверника

сначала заполняем массив, потом минимальное число - певый индекс массива если это число оказывается больше какого-то то мы присваевыем переменной min это число.

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

program ad;

var num, f, s: integer;

begin

readln(num);

f: = num div 10;

s: = num mod s;

if f> s then

  writeln(f-s);

else

  writeln(s-f);

end.

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

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;

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