Предмет: Информатика,
автор: shramelizaveta
Срочно помогите!!!
12 чисел выбрасываются случайным образом из отрезка от -4 до 5.
Подсчитать сумму нечётных чисел и вывести на экран.
Делать нужно через цикл WHILE!!!!!! В ПАСКАЛЕ!!!!
Ответы
Автор ответа:
0
Ответ:
var i,x,sum:integer;
begin
randomize;
sum:=0;
i:=1;
while i<=12 do
begin
x:=random(10)-4;
if abs(x mod 2)=1 then sum:=sum+x;
//writeln (x);
i:=i+1;
end;
writeln ('sum=',sum);
end.
Объяснение:
Похожие вопросы
Предмет: Математика,
автор: dezrobnjianatalij
Предмет: Математика,
автор: antipovyri78
Предмет: Алгебра,
автор: annaxqw0v
Предмет: Физика,
автор: sbbinig
Предмет: Химия,
автор: Nikalove3845