Программа получения случайных чисел из заданного интервала [A,B] — Pascal(Паскаль)

Program Number (Input, Output); 
Var 
A, B: Integer;
N : Integer;
S : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Получение случайных чисел из интервала [A,B].');
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: '); 
ReadLn (B); 
Write ('Введите число случайных чисел N: '); 
ReadLn (N); 
 
For i := 1 To N Do
Begin
S := Trunc(Random(B-A)+A); 
WriteLn (i:2,'-е случайное число:',S:4);
End;
 
ReadLn;
End. 

Leave a Comment

55 − = 46