A - номер квартиры, начиная с 1
n - этаж
C:
n = 2*((a-1)/12)+2+((а-1)%12)/7
Pascal:
n := 2*((a-1) div 12)+2+((a-1) mod 12) div 7
выражение в одну строку
% это остаток от деления
a и n переменные целого типа, подразумевается, что происходит автоматическое округление при делении в меньшую сторону
Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
<span>End.
</span>
Const
a=-10;
b=1;
var
i: integer;
begin
for i:=a to b do
writeln('F1(',i,')=',1/Tan(i));
end.
Const
a=2;
b=10;
var
i: integer;
x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
begin
x:=i;
f:=power(x,3/5);
writeln(f);
if f<min then min:=f;
if f>max then max:=f;
end;
writeln('min=',min);
writeln('max=',max);
end.
<span>var
</span>ar:array[1..10] of integer;
sr,i:integer;
begin
randomize;
for i:=1 to 10 do begin
ar[i]:=random(11);
sr:=sr+ar[i];
end;
writeln('Среднее арифметическое равно = ',sr/10);
<span>end.</span>
1)отливаем 8 литров в 8 литровый, тогда в 12 литровом останется4
2) из 8 литрового переливаем в 5 литровый 5 литров, тогда в 8 литровом останется 3
3)ИЗ 5 ЛИТРОВОГО ОБРАТНО 5 ЛИТРОВ В 12 ЛИТРОВЫЙ
ТАМ СТАНОВИТСЯ 9 ЛИТРОВ
4)ИЗ 8 ЛИТРОВОГО ПЕРЕЛИВАЕМ 3 ЛИТРА В 5 ЛИТРОВЫЙ
5)НАЛИВАЕМ ИЗ 12 ЛИТРОВОГО 8 ЛИТРОВ В 8 ЛИТРОВЫЙ
<span>6)ТЕПЕРЬ ИЗ 8 ЛИТРОВОГО ДОЛИВАЕМ В 5 ЛИТРОВЫЙ 2 ЛИТРА(ДО ВЕРХА), ТОГДА В 8 ЛИТРОВОМ ОСТАЕТСЯ 6 ЛИТРОВ</span>