Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
Var i,s: integer;
begin
i:=30; s:=0;
repeat
s:=s+i;
i:=i+5;
until i>60;
writeln('сумма = ',s);
<span>end.
</span>
a:=2*n;
if a mod 3 =0 then write (a, ' '); // кратно3
//Если кратно 5
if a mod 5=0 then write (a, ' '); // кратно 5
//если кратно x
if a mod x =0 then write (a, ' '); // кратно x
Readln(x);
//X^Y = exp(ln(X) * Y) - возведение в степень
ctg1:=cos(x)/sin(x);
y:=sqrt(sqrt((x*x+3)/(x-1))-exp(ln(ctg1*5)*3);
Ответ:
var n:array [1..5,1..7] of integer;
i,j,m:integer;
begin
writeln('Массив: ');
for i:=1 to 5 do
begin
for j:=1 to 7 do
begin
n[i,j]:=random(11)-5;
write(n[i,j]:4);
end;
writeln
end;
writeln;
for j:=1 to 7 do
begin
m:=6;
for i:=1 to 5 do if n[i,j]<m then m:=n[i,j];
write(m:4);
end
end.