PascalABC.NET (версия 3.2, сборка 1370 от 24.12.2016)
<span><span>MatrRandom(m n a b) - </span>Возвращает двумерный массив размера m x n, заполненный случайными целыми значениями от </span>a до b
Var
i, //номер члена последовательности
n: integer; //длина последовательности
a: double; //заданное число
Begin
//--------------------------------------Ввод данных----------------------------------------------------
write('Введите длину последовательности: ');
read(n);
write('Введите a: ');
read(a);
//-----------------------------Вывод последовательности-------------------------------------------
i:=2;
write('Последовательность: ',1);
while i <= n do begin
write(' ',1+1/i:0:4); //4 - количество цифр после запятой, если нужна
большая точность можно увеличить это число
i:=i+1;
end;
writeln();
//------------------------------Вывод требуемых чисел----------------------------------------------
write('Числа меньше а: ');
i:=2;
if a > 1 then write(1);
while i <= n do begin
if 1+1/i < a then write(' ',1+1/i:0:4); //если i-й член последовательности < a,
то печатаем это число
i:=i+1; //переходим к следующему числу в последовательности
end;
End.
===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
P=m/n
m- количество возможных благоприятных исходов
n - общее число исходов
n=10+10+2+3=25
m=2
P=2/25=0,08
Нужно больше символов, так что так.
ГБЖВЕАД
