Составть программу для следующих , в паскале а)с клавиатуры вводится два вещественных числа.найти целую часть от произведения двух вещественных чисел. б)с клавиатуры вводится целое число .наити дробную часть от деления целого числа на 10 г)с клавиатуры вводится два вещественных числа. найти сумму двух вещественных чисел и округлить её. д) с клавиатуры вводится два целых числа. наити целую часть при деление первого числа на другое е)дано количество метров, которые пешеход. найти сколько километров без учёта метров пешеход. ж)с начала месяца часов. определить какое сейчас число. з)с начала года дней определить какая сеичас неделя , если 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.