Внебоскребе n этажей и всего один подъезд: на каждом этаже 3 квартиры; лифт может останавливаться только на нечетных этажах. человек садится в лифт и наби-рает номер нужной ему квартиры м. на какой этаж должен доставить лифт пассажира?
Const N = 10; var a, k, e: integer; begin readln(a); if (a > N) then writeln('Error') else begin while (k < a) do begin k := k + 3; e := e + 1; end; writeln(e); end; end.
Uses Crt; Const N = 100; Var A:array[1..N] of real; i,k:integer; S:real; Begin ClrScr; k:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=Sin(i)*Cos(i); Write(' ',A[i]:0:3); if A[i] <> 0 then Begin k:=k+1; S:=S+A[i] End; End; WriteLn; WriteLn('Sr = ',S/k); ReadLn End.
Var a: array [1..15] of integer; i, sum, k: integer; sa: real; Begin For i:=1 to 15 do a[i]:=Random(21)-10; writeln('Исходный массив:'); For i:=1 to 15 do write (a[i], ' '); writeln; sum:=0; {первоначально сумме присваивается значение 0} k:=0; {первоначально счетчику присваивается значение 0} For i:=1 to 15 do if (a[i] mod 2=0) and (i mod 2=1) then begin sum:=sum+a[i]; {подсчет суммы} k:=k+1; {подсчет количества элементов} end; sa:=sum/k; {вычисление среднего арифметического} writeln('Среднее арифметическое четных элементов массива, стоящих на нечетных местах = ', sa:4:2); End.
var a, k, e: integer;
begin
readln(a);
if (a > N) then
writeln('Error')
else
begin
while (k < a) do
begin
k := k + 3;
e := e + 1;
end;
writeln(e);
end;
end.
Вот и лифт =)