Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2, 3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:
program n1;
uses crt;
var n1,n2,n3,n4,n5,s: real;
begin
read(n1,n2,n3,n4,n5);
s: =(n1+n2+n3+n4+n5)/5;
write('s=',s);
end.
аx2+c=0
аx2=-с
х=-с/а
если -с/а меньше 0, корней нет
есла -с/а равно 0, то х=0
если -с/а больше 0,х=+-корень из -с/а
var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.
вот программа
write("");
или что тебе надо?
Популярные вопросы