Var a,b,x,z,d1,d2:real; k:integer;
begin
writeln('Введите границы интервала для получения случайных значений:');
readln(d1,d2);
a:=(d2-d1)*random+d1;
b:=(d2-d1)*random+d1;
x:=(d2-d1)*random+d1;
writeln('a = ',a:5:2,' b = ',b:5:2,' x = ',x:5:2);
z:=ln(x*x+a*b);
k:=trunc(z) mod 7;
writeln('k = ',k);
case k of
0: writeln('воскресенье');
1: writeln('понедельник');
2: writeln('вторник');
3: writeln('среда');
4: writeln('четверг');
5: writeln('пятница');
6: writeln('суббота');
end;
end.
Пример:
Введите границы интервала для получения случайных значений:
2.1 9.4
a = 5.66 b = 4.93 x = 4.74
k = 3
среда