var x,y,n,m,s,z:real;i,k:integer;
begin
write('Введите начало и конец диапазона по х'); Read(n,m);
write('Введите шаг расчета по х'); Read(z);
k:= round((m - n)/z)+1;x:=n;
for I:= 1 to k do begin
y:= x * 34* 2*sin(x);
writeln(x:4:1,y:11:6);x:= x + z;end;<span>end.</span>
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
8л 5л 3л
Наполнили 5л. 3 5 0Перелили это в 3л, осталось 2 л. 3 2 3 3 л вернули в 8 л. 6 2 02л перелили в 3л. 6 0 2Наполнили 5л из 8л. 1 5 2 Отлили из 5л в 5л 1 4 3перелили 3л в 8л 4 4Число переливаний 7.
Петр Лисицын-информатика
Андрей Соколов-русский
Василий Журавлев- математика
Ответ: 32
Решение:
var arr: array [1..12] of real; s, tmp: real; element_id_1, element_id_2: integer;begin s:=0; for element_id_1:=1 to 12 do readln (arr[element_id_1]); for element_id_1:=1 to 12 do begin for element_id_2:=1 to element_id_1-1 do begin if arr[element_id_2]>arr[element_id_1] then begin tmp:=arr[element_id_2]; arr[element_id_2]:=arr[element_id_1]; arr[element_id_1]:=tmp; s:=s+1; end; end; end; writeln(s);end.