как решить программу. var k, s: integer; begin s:=1; k:=0; while k<13 do begin s:=s+2*k; k:=k+4; end; write (s+k); end.

Программу нельзя "решить". Решать можно задачи, проблеммы, в крайнем случае - уравнения. А программу можно написать, выполнить, отдебажить, исправить...

Е*

Евгений ****

эс=1,к=0
затем выполняется цикл "пока"
пока значение к не станет больше или равно 13, то выполняются следующие действия:
эс=эс+2*к
к=к+4
т. е. эс=1+0, к=0+4
эс=1+2*4=9, к=4+4=8
эс=9+2*8=25, к=8+4=12
эс=25+2*12=49, к=12+4=16 (больше 13)
когда цикл заканчивается на экран выводится сумма к и эс 49+16=65
это видимо и есть "решение программы"

206x^4 - 205x^2 - 1 = 0 как решить его? 4 и 2 - степени

ВОТ ЭТИ СЛОВАА: s:=''; readln(a); while not (a=0) do begin a := a div 2; c := a mod 2; if c=0 then s:=s+'0' el

а^2+а^4+а^6 +1 = 0. решить!

Научите, пожалуйста, решать уравнения такого типа. x^2-2*m*x+1=0; x^2+2*(k-x)*x+3*k+1=0; a*x^2+3*x-4=0.

как выполнить сортировку, что бы программа выдавала курс студентов по возрастанию (любая сортировка кроме пузырьком) type studs = record name: string[25]; k,o: integer; w:string; end;var arr_studs: array[1..15] of studs; sum: integer; a: real; i,n: byte;begin write('Количество студентов: '); readln(n); sum := 0; for i:=1 to n do with arr_studs[i] do begin write(i,'-й студент: '); readln(name); write('курс: '); readln(k); write(' Оценка: '); readln(o); sum := sum + o; end; a:= sum / n;writeln; writeln('Студенты с оценкой выше средней: '); for i:=1 to n do if arr_studs[i].o > a then writeln(arr_studs[i].name);readln;end.

В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.

Решите уравнение (x+1)^4+(x+1)^2-6=0 (x+1)^4+(x+1)^2-6=0

Решите уравнение (х+1)^4+(х+1)^2-6=0

var N10, k, NP: integer; p:1..9; begin