Помогите с д/з по информатике
1. Написать программу, которая высчитывает произведение всех чисел в диапазоне от 15 до 173 включительно.
2. Вывести все нечётные числа от A до B включительно по убыванию (A и B – любые положительные числа, введенные с клавиатуры).
3. Напишите программу, которая выводит на экран вопрос «Сколько будет дважды два?» после чего запрашивает ответ у пользователя. Если человек ввел неверный ответ, программа должна сказать: «Попробуйте ещё раз» и проделать предыдущие действия еще раз. При верном ответе программа должна завершить работу.
Пример работы программы:
Сколько будет дважды два?
5
Попробуйте ещё раз
Сколько будет дважды два?
6
Попробуйте ещё раз
Сколько будет дважды два
По дате
По рейтингу
12345678910111213141516171819
1)
var I: integer;
P: real;
begin
P:=1;
for I:=15 to 173 do P:=P*I;
Writeln(P)
end.
2)
var A,B,I: integer;
begin
Readln(A);
Readln(B);
for I:=B downto A do if Odd(I) then Writeln(I)
end.