Const N = 13; Var A:array[1..N] of integer; i:integer; Begin Write('Ряд натуральных чисел:'); For i:= 1 to N do Begin A[i]:=i; Write(' ',A[i]) End; End.
Const N = 13; Var A,B,C:longint; i:integer; M:array[1..N] of longint; Begin A:=0; B:=1; M[1]:=1; For i:= 2 to N do Begin A:=B+A; M[i]:=A; C:=A; A:=B; B:=C; End; For i:= 1 to N do Write(M[i],' '); End.
Var h,h1,m,m1,k,k1,b:integer; begin write('h, h1: '); readln(h,h1); write('m, m1: '); readln(m,m1); write('k, k1: '); readln(k,k1); if h div h1 < m div m1 then b:=h div h1 else b:=m div m1; if k div k1 < b then b:=k div k1; writeln('b = ',b); end.
Пример: h, h1: 1000 100 m, m1: 600 50 k, k1: 500 50 b = 10
С определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.
Var h,h1,m,m1,k,k1,b:integer; begin write('h, h1: '); readln(h,h1); write('m, m1: '); readln(m,m1); write('k, k1: '); readln(k,k1); if h div h1 < m div m1 then b:=h div h1 else b:=m div m1; if k div k1 < b then b:=k div k1; writeln('b = ',b); end.
Пример: h, h1: 1000 100 m, m1: 600 50 k, k1: 500 50 b = 10
С определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Write('Ряд натуральных чисел:');
For i:= 1 to N do
Begin
A[i]:=i;
Write(' ',A[i])
End;
End.
Const
N = 13;
Var
A,B,C:longint;
i:integer;
M:array[1..N] of longint;
Begin
A:=0;
B:=1;
M[1]:=1;
For i:= 2 to N do
Begin
A:=B+A;
M[i]:=A;
C:=A;
A:=B;
B:=C;
End;
For i:= 1 to N do
Write(M[i],' ');
End.