Ответы
Ответ дал:
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 года назад
3 года назад
8 лет назад