в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
<em>// PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var c:=ArrRandom(ReadInteger('k='),1,99); c.Println;
var m:=c.Average;
Writeln('Среднее арфифметическое равно ',m);
Writeln('Кол-во элементов, больших ср.арифм: ',c.Where(x->x>m).Count)
end.
<u>Пример</u>
k= 15
74 9 96 97 77 41 51 29 24 26 27 53 5 25 76
Среднее арфифметическое равно 47.3333333333333
Кол-во элементов, больших ср.арифм: 7
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger('введите n');
for var i := 1 to n do s := s + i;
Println(' Cумма первых', n, '=', s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println(' Cумма всех двузначных', '=', s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println('Среднее арифметическое ', a.Average)
end.
1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
Надеюсь, что все понятно)