1)2.
2)1.
3)3.
4)3.
5)4.
6)3.
7)1.
8)2.
9)2.
10)1.
11)3.
12)1.
13)2.
14)1.
15)4.
16)3.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,-50,50); a.Println;
Writeln('Чисел, больших 10: ',a.Where(t->t>10).Count)
end.
<u>Пример</u>
-25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10
Чисел, больших 10: 35
1.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.
Результат:
<span>s = 2475
2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.
Пример:
2
<span>2^5 = 32
3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*i<n do
begin
writeln(i,' (',i,'^2 = ',i*i,')');
i:=i+1;
end;
end.
Пример:
30
<span>1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)</span></span></span>
1. Слева - глобальная, справа - локальная
2. Левый верхний блок - плюс
Левый нижний - минус
Правый верхний - плюс
Правый нижний - минус
Не разговаривать с чужими людьми переходит дорогу по зебре не гулять после 10 вечера вроде все но сам(а) еще придумай
