Завдання 3. Квартплата ( ів)
В об'єднанні співвласників багатоквартирного будинку здійснюються такі випла-
ти: 0,36 грн/м2 — за користуванням ліфтом, 0,12 грн/м? — за вивіз сміття з особи,
0,5грн/м - формування ремонтного фонду,
2, 15грн/м - квартплата,
У середовищі програмування Lazarus роз-
робіть проект Квартплата для розрахунку
оплати відповідно до показників квитанції
за квартиру площею 5 м2 на місяць, у якій
Квартплата, грн/м2
проживає посіб. Передбачте введення
значень площі та кількості осіб у вікнах вве-
дення, а відображення розміру оплати —
на формі проекту
Пройдет через 2,9 тысячи населенных пунктов,83 региона. Кроме того, олимпийский огонь побывает на Северном полюсе,на дне озера Байкал и на вершине Эльбруса.После Москвы и подмосковного Красногорска Олимпийский огонь пронесут, по сути, вокруг Московской области с оборотом против часовой стрелки — через Тверь, Смоленск, Калугу, Тулу, Рязань, Владимир, Иваново, Кострому и Ярославль. Затем факел отправится на северо-запад страны, оттуда — в северные регионы и на Дальний Восток, а, возвращаясь, через Поволжье вновь прибудет в ЦФО, охватив Центральное Черноземье и соседние области. Порядок определен: сначала огонь Олимпиады увидят в Тамбове, затем в Липецке, Орле, Брянске, Курске, Белгороде и, наконец, в Воронеже, откуда факел отправится в Волгоград и далее на юг
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.