X*x+2*x-15=0
решаем кв уравнение
x=3
1)
uses crt;
var x,y,pr:integer;
begin
read(y,x);
pr:=1;
repeat
pr:=pr*y;
x:=x-1;
until x=0;
write(pr);
end.
2)
uses crt;
var
a:array[1..10] of integer;
pr,i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
clrscr;
pr:=1;
for i:=1 to 10 do
begin
if a[i]<0 then k:=k+1;
if a[i]>0 then pr:=pr*a[i];
end;
writeln('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');
write('Произведение положительных элементов равно: ',pr);
end.
Человек получает инвормацию от головы например сначала он читает книгу потом он берет отуда правильную инвормацыю (новую) потом мы ее переробатываем в голове и пишим в тетрадь эту запись.Человеу получает информацию от нотбука (например ) что такое автомобиль это транспортное средство.Это мы переробатывае и получаем информацию и запаминаем это слово и потом запоминаем и когда у тебя спрашывают что такое машына? ты говориш транспортное средство.И ЭТО НАЗЫВАЕТСЯ МЫ ПОЛУЧАЕМ ИНВАРМАЦЫЮ ОТ ВСЕГО ЛКРУЖАЕШЕГО МИРА !!!
//PascalABC.NET 3.2 сборка 1318
<span>
</span>Const
n=7;
Var
ma:array[1..n,1..n] of integer;
countn,countp,i,j:integer;
sr:real;
begin
for i:=1 to n do
for j:=1 to n do
begin
readln(ma[i][j]);
if ma[i][j]>0 then inc(countp) else
if ma[i][j]<0 then inc(countn);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(ma[i][j]:4);
writeln;
end;
writeln('Count of positive=',countp,', count of negative=',countn);
for j:=1 to n do
begin
sr:=0;
for i:=1 to n do
sr+=ma[i][j];
writeln(j,' ',sr/n);
end;
end.