Віеіпедія, Інтернет і т.д.
Привет. Написал программы только на первые три задания. Может другим "про-кодерам" он не понравится,зато работает, принимай:
Задача 1:
var p: array[1..10] of integer;
i:integer;
count:integer;
begin
for i:=1 to 10 do read(p[i]);
write('Сколько цифр массива хотите видеть? -> ');
readln(count);
for i:=1 to count do write(p[i]:3);
<span>end.
Задача 2:
var arr: array[1..10] of integer;
i:integer;
s:integer;
count:integer;
begin
for i:=1 to 10 do
begin
arr[i]:=Random(-10,10);
if(arr[i]<0) then
begin
writeln(arr[i]:4);
s:=s+arr[i];
count:=count+1;
end;
end;
writeln('Среднее значение = ', s/count);
<span>end.
Задача 3:
var arr: array[1..10] of integer;
i:integer;
crat:integer;
id:integer;
begin
for i:=1 to 10 do
begin
read(arr[i]);
crat:=arr[i] mod 3;
if(crat = 0) then
begin
id:=arr[i];
if(arr[i] = id) then writeln('Id = ', i:2);
end;
end;<span>
end.
</span>
Если что-то не получится - пиши, разберемся.</span></span>
Если нужно просто найти решения, то делаем так: раскладываем в какую-нибудь большую систему счисления:
выражаем c:
теперь решаем в целых числах до 17 при ограничениях:
получаем два решения:
a = 7, b = 2, c = 8
a = 11, b = 5, c = 14
Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('S.Ar. = ',(A*A*A+B*B*B)/2);
WriteLn('S.G. = ',Sqrt(Abs(A*B)));
End.
Var
x1,y1,x2,y2:real;
Begin
Write('x1 = ');
ReadLn(x1);
Write('y1 = ');
ReadLn(y1);
Write('x2 = ');
ReadLn(x2);
Write('y2 = ');
ReadLn(y2);
WriteLn('R = ',sqrt(sqr(x1-x2)+sqr(y1-y2)));
End.
Var f,n,i:integer;
begin
readln(n);
i:=1;
f:=1;
repeat
f:=f*i;
i:=i+1;
until i>n;
writeln(f);
end.