Вопрос по информатике:
ПОМОГИТЕ!
Даны два целых числа A и В, A>B. Выведите все нечётные числа от A до B включительно, в порядке убывания.
Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.
Пожаловаться
- 06.08.2018 13:22
- Информатика
- remove_red_eye 13931
- thumb_up 14
Ответы и объяснения 2
Var a,b,i:integer;
begin
readln(a,b);
for i:=a downto b do
if i mod 2 0 then write(i,' ')
end.
var a,b,i,p:integer;
begin
readln(a,b);
p:=1;
for i:=b to a do p:=p*i;
writeln(p)
end.
begin
readln(a,b);
for i:=a downto b do
if i mod 2 0 then write(i,' ')
end.
var a,b,i,p:integer;
begin
readln(a,b);
p:=1;
for i:=b to a do p:=p*i;
writeln(p)
end.
Пожаловаться
- 08.08.2018 19:55
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы