program z1; var n,m:integer; rost,nine_a,nine_b:real; begin write('Введите количество учинеков 9а класса: '); readln(n); write('Введите количество учинеков 9б класса: '); readln(m); writeln('Вводите рост каждого из учинеков 9а по очереди'); for i:integer :=1 to n do begin write(i,': '); read(rost); nine_a:=nine_a+rost; end; nine_a:=nine_a/n; // средний рост 9а writeln('Вводите рост каждого из учинеков 9б по очереди'); for i:integer :=1 to m do begin write(i,': '); read(rost); nine_b:=nine_b+rost;end; nine_b:=nine_b/n; // средний рост 9б if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.'); end.
Для перевода в любую счислительную систему из десятичной нужно число делить на 2, 8 и 16 соответственно системам. Остаток при делении отмечаешь (если число делится нацело то отмечаешь остаток как ноль). Затем частное от первого деления снова делишь на 2, 8 или 16 соответственно системе счисления. Отмечаешь остаток. И так далее пока не останется в частном то, что уже нельзя делить. Отмечаешь последнее частное. А потом задом наперед (справа на лево) выписываешь последнее частное и за ним все остатки. Это и будет перевод числа в данную систему счисления. 2. a) b) 3. a) b) 4. a) --> 4 единицы в записи b) --> 2 единицы в записи. 5. a) --> 4 нуля в записи b) --> 2 нуля в записи
--> 4 единицы в записи
--> 2 единицы в записи.
--> 4 нуля в записи
--> 2 нуля в записи
program z;
var a:integer;
begin
read(a);
if a mod 2 = 0 then write(sqrt(a))
end.
Объяснение:
если число чётное, то выводим корень из числа, иначе программа ничего не делает (просто завершается)
если нужно добавить вывод числа без изменений, то перед end вставить строку:
else write(a)