Человеку сегодня исполнилось r лет.сколько ему дней, часов, минут, секунд (високосные годы не учитывать
Ответы
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Записать математическое выражение на языке Паскаль
Сообщение икт в современном мире, кратко,
Выразите 54 мбайта в битах , 10 гбайт в кбайтах ,
Var
age:integer;
Begin
Writeln('Вы прожили уже ',age*365,' дней);
Writeln(age*365*24,' часа');
Writeln(age*365*24*60,' минут');
Writeln(age*365*24*60*60,' секунд');
End;