Найти остаток от деления целой части значения функции y = ln (x²+ab) на 7 и, в зависимости от его величины, напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. Значения переменных а, b, x получить случайным образом на произвольном интервале

Question

Информатика

Надюша

8 октября, 15:39

Найти остаток от деления целой части значения функции y = ln (x²+ab) на 7 и, в зависимости от его величины, напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. Значения переменных а, b, x получить случайным образом на произвольном интервале

+5

Ответы (1)

Знаете ответ на вопрос?

Петяша · Answer 1

Var y, a, b, x:integer;

begin

a:=-5+random (16) ; b:=1+random (20) ; x:=1+random (3) ;

y:=ln (sqr (x) + a*b) ;

case y mod 7 of

0:writeln ('') ;

1:writeln ('') ;

2:writeln ('') ;

3:writeln ('') ;

4:writeln ('') ;

5:writeln ('') ;

6:writeln ('') ;

end;

readln

end.