3)коньюртер изображен на данной схеме
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Using System;
public class Test
{
public static void Main()
{
Console.Write("Введите координату х исходной точки (1-8): ");
int x1=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату y исходной точки (1-8): ");
int y1=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату х нужной точки (1-8): ");
int x=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату y нужной точки (1-8): ");
int y=Convert.ToInt32(Console.ReadLine());
bool r=(Math.Abs(x-x1)*Math.Abs(y-y1)==2) &&
(x>0) && (x1>0) && (x<9) && (x1<9) &&
(y>0) && (y1>0) && (y<9) && (y1<9);
Console.WriteLine(r);
}
}
<u>Непосредственно условие:</u>
(Math.Abs(x-x1)*Math.Abs(y-y1)==2) &&
(x>0) && (x1>0) && (x<9) && (x1<9) &&
(y>0) && (y1>0) && (y<9) && (y1<9)
Var n, i, sum, kol, age :integer; sr :real;
begin
sum:= 0; kol:= 0; readln(n); for i:= 1 to n do begin readln(age); sum:= sum + age; inc(kol); end; sr:= sum/kol; writeln(sr);
<span>end.</span>