Составить программу вычисления произведения нечётных чисел меньши 16
Ответы на вопрос
Ответил Вованичикчка
1
var n:byte;
sum:integer;
begin
n:=16;
repeat
dec(n);
if (n mod 2)=0 then continue;
sum:=sum+n;
until n=0;
writeln(sum);
end.
sum:integer;
begin
n:=16;
repeat
dec(n);
if (n mod 2)=0 then continue;
sum:=sum+n;
until n=0;
writeln(sum);
end.
Лььтоbhh:
Тут складывается , а надо умножать все не чётные числа
упс, ошибка, но она не критичная, просто замени знак "+" на "*"
Я менял знак ,он выдаёт 0
поставь в начале программы после begin sum:=1;
var n:byte;
sum:integer;
begin
n:=16;
sum:=1;
repeat
dec(n);
if (n mod 2)=0 then continue;
writeln(n);
sum:=sum*n;
until n=0;
writeln(sum);
end.
sum:integer;
begin
n:=16;
sum:=1;
repeat
dec(n);
if (n mod 2)=0 then continue;
writeln(n);
sum:=sum*n;
until n=0;
writeln(sum);
end.
прошу прощения за предоставленные неудобства
Новые вопросы
Українська мова,
1 год назад
Математика,
1 год назад
Химия,
2 года назад
Русский язык,
2 года назад
Литература,
7 лет назад