Составть программу для следующих , в паскале а)с клавиатуры вводится два вещественных числа.найти целую часть от произведения двух вещественных чисел. б)с клавиатуры вводится целое число .наити дробную часть от деления целого числа на 10 г)с клавиатуры вводится два вещественных числа. найти сумму двух вещественных чисел и округлить её. д) с клавиатуры вводится два целых числа. наити целую часть при деление первого числа на другое е)дано количество метров, которые пешеход. найти сколько километров без учёта метров пешеход. ж)с начала месяца часов. определить какое сейчас число. з)с начала года дней определить какая сеичас неделя , если 1 января было понедельник . и)с начала суток минут. определить который час сейчас ( в часах и минутах )
fainanem
3
02.04.2019 03:40
1
Другие вопросы по теме Информатика
Nastiy1987
02.09.2019 21:10
alexcozearschi
22.09.2019 22:50
shtondin2017
22.09.2019 22:50
katywwka
10.07.2019 12:20
guna3
15.05.2020 11:47
Кирюха33333
15.05.2020 11:47
ERESYUR
15.05.2020 11:47
AmitJK
01.04.2019 09:34
Caшa2220
01.04.2019 10:50
Популярные вопросы
- Внекотором посёлке имеются только одноэтажные и двухэтажные дома, причём двухэтажных...
3 - Водномерном массиве состояшим из 10 целых чисел найти количество элементов...
2 - Осуществи превращения,запешите уравненияреакций,укажи тип реакции: h2➡️hcl➡️zncl2...
2 - Торговая фирма приобрела партию товара и определила цену единицы товара так,...
1 - Запиши слова в нужный столбик таблицы, вставляя, если необходимо, ь. проверьте...
3 - ответьте на следующие вопросы what do youremember...
1 - Предствьте дробь 5/6 в виде дроби со знаменателем 18,24,60,120. 3/4 в виде...
2 - Выполните действия: 3,5x³-2,5x³=? 1\7ba³+2\3ba³=?...
3 - 5-7 предложений на тему зимнее утро с причастиями и причастными оборотами....
3 - She put a pullover . .because she was feelling cold. 1 on2in3to4at...
3
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.