ИНФОРМАТИКА 9 КЛАСС
Язык PHYTON
Задание смотреть во вложении

106

171

Посмотреть ответы 2

Ответы на вопрос:

гэлочка

Информатика

4,5(2 оценок)

const n=10; var a,b,c,ch,i:integer; ar:array[1..n] of integer; begin readln(a,b); for i:=1 to n do begin if b>a then ar[i]:=random(b-a+1)+a else break; write(ar[i],' '); if odd(ar[i]) then inc(ch) else inc(c) end; writeln('chetn=',c,' nechetn=',ch) end.

Объяснение:

Думаю логика понятная