Основы программирования на языке paskal Записать на языке: A) если x четное или y четное, то с - это их среднее арифметическое
Основы программирования на языке paskal Записать на языке: A) если x четное или y четное, то с - это их среднее арифметическое, а иначе с - это остаток от деления x на y. Б) для k от 1 до 15 найди сумму значений параметра В) удваивай x пока оно не превысит 100 Г) поменяй значения a и b местами
Var x,y,c,k,i,a,b:integer; begin readln(x,y,a,b); If (x mod 2=0) or (y mod 2=0) then c:=(x+y) div 2 else c:=x mod y; For i:=1 to 15 do k:=k+i; While x<=100 do x:=x*2; a:=a+b; b:=a-b; a:=a-b; Writeln(c,' ',k,' ',x,' ',a,' ',b); end.
Для равновероятных событий справедлива формула Хартли. N=2^i. Где N количество событий, а i- количество информации, которое несет каждое из них. В задаче i=3, значит N=2^3, N=8.