Составить программу вычисления произведения нечётных чисел меньши 16

gulyaaxundova gulyaaxundova    2   17.09.2019 23:50    0

Ответы
spashkova6 spashkova6  07.10.2020 22:53
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика