Ряд 2,4,6,8... является арифметической прогрессией с разностью d=2, и первым членом a1=2
формула суммы первых n членов:
в данной задаче:
поэтому при составлении программы можно обойтись без циклов
программа:
Program n1;
var n: integer;
begin
readln(n);
write(n*n+n);
end.
Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
Нет под рукой щас паскаля, вот примерный цикл
readln(Input); res := Input; while (not(Input = 0)) do begin readln(Input); res := res * Input; end;
.........характерные черты?
Ответы: 32 (убираем 1-ю и 3-ю цифры) и 13 (убираем 1-ю и 4-ю цифры).