Question

Найти остаток от деления целой части значения функции z=In(x^2+ab) на 7 и, в зависимости от его величины , напечатать сообщение об одном из дней недели, пронумеровав их от 0 до 6. Решить в Паскаль

Answer 1

Var a,b,x: real; z: integer;
begin
  write('x = '); readln(x);
  write('a = '); readln(a);
  write('b = '); readln(b);
  z := Trunc(x*x+a*b);
  writeln('[z] = ', z);
  writeln('[z] mod 7 = ', z mod 7);
  writeln(System.Globalization
    .CultureInfo.CurrentCulture
    .DateTimeFormat.DayNames[(z+1) mod 7]); 
  // Если нулевой день это Воскресенье, то не (z+1) а z mod 7
end.