Question

Напишите программу, которая вводит два вещественных числа, a и b (a

Answer 1

Ответ:

Вот

Объяснение:

Program teach;

var a, b: real; i: integer;

begin  

randomize;  

readln(a,b);  

for i:= 1 to 5 do    

write((Random()*(b-a)+a):0:3, ' ');

end.

Answer 2

Пол программы всё равно было лишней)

program ss;

var a,b,q:real;

i : integer;

begin

read(a,b);

randomize;

for i:= 1 to 5 do    

begin

q:= Random()*(b-a)+a;

writeln(q);

end;

end.