If then,тогда 1 оператор
Если if then begin <условие1>; <условие2>; end;
Тогда можно писать бесконечное кол-во операторов
N = int(input())
i=1
degree=0
while i < n:
i *= 2
degree += 1
print(degree, '2 ^', degree)
Я ничего незнаю мне самой нужен ответ но никио ничего не пишет
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var s:=ReadlnString('->');
var a:=s.ToCharArray.Select(c->c.ToDigit).Partition(i->i.IsOdd);
Writeln('Ср.арифм. нечетных: ',a[0].Average:0:4,
', ср.арифм. четных: ',a[1].Average:0:4)
end.
Пример:
-> 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000