Var
N:integer;
P:real;
Begin
Write('N = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
P:=P*(N*2-1)/(2*N);
WriteLn('P = ',P:0:5)
End.
N = 50
P = 0.07959
N = 100
P = 0.05635
N = 200
P = 0.03987
#include<iostream>
using namespace std;
int main() {
setlocale(0, "");
int nech=0, ch=0;
int a;
cin >> a;
while(a!=0){
cin >> a;
if (a % 2 == 0)ch++;
else nech++;
}
cout <<"НЕЧЕТНЫХ "<< ch <<" ЧЕТНЫХ "<< nech << endl;
system("pause");
}
var
i: Integer;
Af: array [1..10] of Integer;
begin
Af [1] := 1; // первый член ряда равен 1
Af [2] := 1; // второй член ряда равен 1
for i := 3 to 10 do begin // цикл, начинающийся с 3-го члена до заданного (десятого)
Af [i] := Af [i - 2] + Af [i - 1]; // каждый член ряда равен сумме двух предыдущих
end;
for i := 1 to 10 do begin // вывод на экран первых 10 членов ряда
Write (Af [i], ', ');
end;
end.
// ------ 2-й вариант (без использования массива) ---------
var
a, b, c, i: Integer;
begin
a := 1;
Write (a, ', ');
b := 1;
Write (b, ', ');
for i := 3 to 10 do begin
c := a + b;
Write (c, ', ');
a := b;
b := c;
end;
end.
Способы задания алгоритма.
— словесная (запись на естественном языке);
— графическая (изображения из графических символов);
— программная (тексты на языках программирования).
Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20
