Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива b: ');
for i: =1 to n do
readln(b[i]);
writeln('исходный массив b: ');
writeln(b[i]);
s: =0;
if b[i] > a then s: =s+b[i];
writeln('сумма элементов =', s);
readln
end.
аx2+c=0
аx2=-с
х=-с/а
если -с/а меньше 0, корней нет
есла -с/а равно 0, то х=0
если -с/а больше 0,х=+-корень из -с/а
ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
var i: integer;
s,v: real;
read(i,v);
case i of
1: s: =pi*v*v;
2: s: =pi*v*v/4;
3: s: =v*v/pi/4;
end;
writeln(s);
Популярные вопросы