5 задач(Paskal). Нужно решения, пример(Это то, что начинается с Begin, заканчивается end,...

Question

5 задач(Paskal). Нужно решения, пример(Это то, что начинается с Begin, заканчивается end, с командой read). Надеюсь вы меня поняли, саму программу писать не надо, просто текст сюда!На кону 150 баллов:D
1. Дано натуральное четырехзначное число n. Определите произведение его цифр.
2.Известно время восхода и захода солнца в часах и минутах.Определить долготу дня в часах.
3. Сколько заготовок круглой формы можно изготовить из куска ткани шириной a, длиной b, если радиус заготовки равен r.
4. Сумму денег n рублей разменять наименьшим количеством монет по 1, 2, 5 или 10 рублей. В ответе указать количество монет для каждого достоинства. Например, для n=53 понадобится по 1 рублю- 1 монета, по 2 рубля-1 монета, по 5 руб-0 монет, по 10 руб-5 монет
5. Поменять содержимое двух ячеек a и b
а) С использованием дополнительной ячейки.
б) Без использования дополнительной ячейки.

Answer 1

1.
Program la;
var a,b,c,d,s,n: integer;
begin
writeln('Введите 4-ехзначное число');
readln(n);
a:= n div 1000;
b:= n mod 100 div 10;
c:= n mod 10;
d:= n div 100 mod 10;
s:=a*b*c*d;
writeln(s);
end.