• Даны два целых числа A и В, A>B. Выведите все нечётные числа от A до B включительно, в порядке убывания.
• Даны два целых числа А и В, A>B. Выведете произведение всех чисел от А до В.
Ответы
Ответ дал:
0
var a,b,i:integer;
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
for i:=a downto b do
if i mod 2<>0 then write (i,' ')
end.
var
a,b,i:integer;
p:longint;
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
p:=1;
for i:=a downto b do p:=p*i;
writeln ('Произведение всех целых чисел от ',a,' до ',b,' равно ',p)
end.
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
for i:=a downto b do
if i mod 2<>0 then write (i,' ')
end.
var
a,b,i:integer;
p:longint;
begin
write ('Введите два целых числа (A>B): ');
readln (a,b);
p:=1;
for i:=a downto b do p:=p*i;
writeln ('Произведение всех целых чисел от ',a,' до ',b,' равно ',p)
end.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад