Var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
Заполним таблицу по исходным значениям:
А B C D
4 X 6 11
12 B1-2 12 12
По рисунку видно, что все секторы равны, следовательно и в B2 должно быть 12, а это получиться только в том случае, если B1 = 14.
Ответ: 14
1)Функция
program fun;
function f(m,n : real):real;
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
f:=k;
end;
var
a,b : real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
writeln('F= ',f(a, b):0:2);
end.
2) Процедура
program fun;
procedure f(m,n : real);
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
writeln('F=',k:0:2);
end;
var a, b :real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
f(a,b);
end.
Является 56 ) есть ещё вопоосы ? мне нравится помогать !
У if'ов небыло begin и end;
у значений массива n небыли проставленны ' ' одинарные кавычки для букв.
у b и v в условиях не те типы данных, поэтому немогут они внутрь себя вместить букву, а только цифры, исправил с integer на char.
не знаю что должна выводить программка, begin и end'ов нету и у циклов. Без begin и end'ов трудно мне просчитать что выведет программа.
Program shifer;var z,a,m,s,j,x:integer;b,v:char;k:array[1..100] of char;n:array[1..100] of char;BEGINn[1]:='а';n[2]:='б';n[3]:='в';n[4]:='г';n[5]:='д';n[6]:='е';n[7]:='ё';n[8]:='ж';n[9]:='з';n[10]:='и';n[11]:='й';n[12]:='к';n[13]:='л';n[14]:='м';n[15]:='н';n[16]:='о';n[17]:='п';n[18]:='р';n[19]:='с';n[20]:='т';n[21]:='у';n[22]:='ф';n[23]:='х';n[24]:='ц';n[25]:='ч';n[26]:='ш';n[27]:='щ';n[28]:='ъ';n[29]:='ы';n[30]:='ь';n[31]:='э';n[32]:='ю';n[33]:='я';n[34]:='а';n[35]:='б';n[36]:='в';readln(a);for m:=1 to a do readln(b); for j:=1 to 33 do x:=0; if b=n[1+x] then begin v:=n[1+x+3]; z:=0; k[1+z]:=v; z:=z+1; end else begin x:=x+1; end; writeln(k);END.
