Предмет: Информатика,
автор: Лььтоbhh
Составить программу вычисления произведения нечётных чисел меньши 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.
прошу прощения за предоставленные неудобства
Интересные вопросы
Предмет: Физика,
автор: davidd13221
Предмет: Английский язык,
автор: filonenkovarya11
Предмет: Қазақ тiлi,
автор: mejrbeknurzan4
Предмет: Українська література,
автор: samsungggtt77
Предмет: Геометрия,
автор: Аноним