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

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. Поменять содержимое 2-ух ячеек a и b
а) С внедрением дополнительной ячейки.
б) Без использования дополнительной ячейки.

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт