<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
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.
Var x1, y1, x2, y2: real;
c:char;
begin
repeat
read(c);
until c='>';
read(c);
readln(x1,y1);
repeat
read(c);
until c='>';
read(c);
readln(x2,y2);
x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
if (x1 > 0) then
writeln('2-я точка ближе')
else if (x1 < 0) then
writeln('1-я точка ближе')
else
writeln('Точки на одинаковом расстоянии')
end.
Эту надпись написали через в вк
на копмпе заходишь, открываешь фото, жми изменить фото, а дальше изменяй