СОСТАВТЬ ПРОГРАММУ ДЛЯ СЛЕДУЮЩИХ ЗАДАЧ пажалуста , пажалуста в паскале а)С клавиатуры...

Question

СОСТАВТЬ ПРОГРАММУ ДЛЯ СЛЕДУЮЩИХ ЗАДАЧ пажалуста , пажалуста в паскале а)С клавиатуры вводится два вещественных числа.Найти целую часть от произведения двух вещественных чисел. б)С клавиатуры вводится целое число .Наити дробную часть от деления целого числа на 10 г)С клавиатуры вводится два вещественных числа. Найти сумму двух вещественных чисел и округлить её. д) С клавиатуры вводится два целых числа. Наити целую часть при деление первого числа на другое е)Дано количество метров, которые прошёл пешеход. Найти сколько километров без учёта метров прошёл пешеход. ж)С начала месяца прошло m часов. Определить какое сейчас число. з)С начала годапрошло k дней определить какая сеичас неделя , если 1 января было понедельник . и)С начала суток прошло k минут. Определить который час сейчас ( в часах и минутах )

Answer 1

var

  a, b : real;

begin

  read (a, b);

  write (trunc (a * b));

end.

 

var

  a : integer;

begin

  read (a);

  write (frac (a / 10));

end.

 

г)

var

  a, b : real;

begin

  read (a, b);

  write (round (a + b));

end.

 

d)

var

  a, b : integer;

begin

  read (a, b);

  write (a div b);

end.

 

e)

var

  a : integer;

begin

  read (a);

  write (a div 1000);

end.

 

ж)

var

  a : longint;

begin

  read (a);

  write (a div 24 + 1);

end.

 

з)

var

  k : integer;

begin

  read (k);

  write (k div 7 + 1);

end.

 

и)

var

  k : integer;

begin

  read (k);

  write (k div 60, ':', k mod 60);

end.