дом
сверн стена. южн стена. восточн стена. заподн стена
окно. окно. двери. окно
Пишу на QBasic
INPUT N
X=0
DIM A(N)
(массив заполните либо вручную, либо рандомайзер впишите)
C=N\2
FOR I = C TO N
IF A(I)>K THEN
X=X+1
END IF
NEXT I
PRINT X
Var a:array[1..100,1..100] of integer;
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
<span>end.
Как то так.</span>
1.
var x,a:integer; p:real;
begin
a:=3;p:=1;
for x:=1 to 5 do p:=p*a*x*x/sqrt(x+5);
writeln('p=',p);
<span>end.
2.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
while x<5 do
begin
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
end;
writeln('p=',p);
<span>end.
3.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
repeat
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
until x=5;
writeln('p=',p);
<span>end.
Результат:
p=20122.311710423
</span></span></span>
Pascal.
var
n: integer;
k: integer;
p: integer;
m: integer;
x: integer;
y: integer;
z: integer;
begin
write('Сколько подъездов в доме? ');
readln(m);
write('Сколько этажей в доме? ');
readln(n);
write('Сколько квартир на 1-ом этаже? ');
readln(p);
write('Сколько квартир на остальных этажах? ');
readln(k);
writeln('Общее количество квартир в доме: ',(k*(n-1)+p)*m);
repeat
write('Номер квартиры: ');
readln(x);
if x>(k*(n-1)+p)*m then writeln('Выбранной Вами квартиры не существует. Введите настоящий номер.');
until x in[1..(k*(n-1)+p)*m];
if x>k*(n-1)+p then
begin
z:=x div 16+1;
x:=x mod 16;
if x>p then y:=x div k +1
else y:=1;
end else
begin
z:=1;
if x>p then y:=x div k +1
else y:=1;
end;
writeln('Искомая квартира находится в ',z,'-м подъезде на ',y,' этаже.');
readln;
end.