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 а) с использованием дополнительной ячейки. б) без использования дополнительной ячейки.
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.