Var i:integer; t:array[1..3,0..31]of real; begin write('Введите температуру в декабре по дням: '); for i:=1 to 31 do begin readln(t[1,i]); t[1,0]:=t[1,0]+t[1,i]; end; t[1,0]:=t[1,0]/31; write('Введите температуру в январе по дням: '); for i:=1 to 31 do begin readln(t[2,i]); t[2,0]:=t[2,0]+t[2,i]; end; t[2,0]:=t[2,0]/31; write('Введите температуру в феврале по дням: '); for i:=1 to 28 do begin readln(t[3,i]); t[3,0]:=t[3,0]+t[3,i]; end; t[3,0]:=t[3,0]/28; writeln('Средняя температура в декабре: ',t[1,0]); writeln('Средняя температура в январе: ',t[2,0]); writeln('Средняя температура в феврале: ',t[3,0]); writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3); end.
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088 var x1,x2,y1,y2,r1,r2:real; begin Write('Введите координаты первой точки: '); Read(x1,y1); Write('Введите координаты второй точки: '); Read(x2,y2); r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2); if r1>r2 then Writeln('Ближе вторая точка') else if r1<r2 then Writeln('Ближе первая точка') else Writeln('Точки равноудалены') end.
Тестовое решение: Введите координаты первой точки: 16.3 -11.7 Введите координаты второй точки: 15.8 12 Ближе вторая точка
public static void main(String args[]){
System.out.println((100+1)*100/2);
}
}