Я РЕШИЛ УРАВНЕНИЕ ПОД НОМЕРОВ 1, ЕСЛИ НУЖНО РЕШИТЬ ДРУГИЕ ПИШИ В ЛИЧКУ
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
Обычно, диск разбивают на C(хранится система) и D,B,E ... Z (любая буква)
var s,i,k:integer;
begin
s:=1;
for k:=1 to 7 do begin
readln(i);
if (i mod 3=0) and (i<0) then s:=s*i;
end;
writeln(s);
end.
Program picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer;<span> a:array[1..10] of integer;</span>begin clrscr; <span> writeln('Vedite dlinu masiva');read(n);</span><span> writeln('Vedite granitu s leva');read(ls);</span><span> writeln('Vedite granitu s prava');read(ld);</span><span> for i:=1 to n do </span><span> begin</span><span> write('A[',i,']=');</span><span> readln(a[i]);</span><span> end;</span><span> min:=a[1];max:=a[1];</span><span> repeat</span><span> f:=1;</span><span> for i:=ls to ld-1 do</span><span> if a[i]<a[i+1] then </span><span> begin </span><span> aux:=a[i]; </span><span> a[i]:=a[i+1]; </span><span> a[i+1]:=aux; </span><span> f:=0; </span> end; until f=1; <span> for i:=ls to ld do</span><span> write(a[i]:3);</span><span> writeln;</span><span> writeln('min: ',a[ls],' max: ',a[ld]);</span><span> aux:=a[ls]; </span><span> a[ls]:=a[ld]; </span><span> a[ld]:=aux; </span><span> for i:=ls to ld do</span><span> write(a[i]:3);</span> end.<span>
</span>