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 среда
Answers & Comments
Verified answer
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
среда