Найти остаток от деления целой части значения функции y = ln(x²+ab) ** 7 и, в зависимости...

Question

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

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.