Составьте блок схему: program qwer; // найти сумму вcех чисел до n var i,n,s: integer; begin writeln - id887647820200916 от Danilos01 16.09.2020 00:40

Question

Информатика: Составьте блок схему: program qwer; // найти сумму вcех чисел до n var i,n,s: integer; begin writeln ( введите число n ); readln (n); i: =0; s: =0; while i =n do begin s: =s+i; i: =i+1; end; writeln ( сумма чисел от 0 до ,n, равна ,s); end.

Danilos01 · Accepted Answer

const

handsfree = false;

nmax = 10;

random_min = -50;

random_max = 50;

var

a: array[0..nmax] of real;

i, n: integer;

sum, x: real;

begin

{ввод массива}

n := nmax;

if handsfree then begin

for i := 0 to n do

begin

a[i] := random(random_max - random_min) + random_min;

write(a[i], ' ');

end

else begin

for i := 0 to n do

readln(a[i]);

end;

writeln();

{подсчет суммы}

write('x = ');

readln(x);

sum := a[n];

for i := n - 1 downto 0 do

sum := sum * x + a[i];

writeln('S = ', sqrt(sum));

end.

MOGZ ответил