1. арифметическая прогрессия васе дали : в заданной последовательности чисел найти три подряд идущих числа, образующих возрастающую арифметическую прогрессию. вася решил написать программу, которая выводила бы тройку чисел, образующих возрастающую арифметическую прогрессию. васе написать такую программу. формат ввода в первой строке входного файла записано натуральное число n (3 ≤ n ≤ 1 000 000 во второй строке записано n неотрицательных целых чисел через пробел, каждое из которых не превосходит 1 000 000 000. формат вывода в выходной файл выведите три искомых числа. если ответов несколько, выведите те числа, которые расположены левее. если таких чисел нет, выведите -1. желательно на паскале

Храним в памяти 3 последних считанных числа. Для каждой такой тройки проверяем, верно ли, что a[i] - a[i - 1] = a[i - 1] - a[i - 2] > 0. Если это так, выводим тройку, устанавливаем флажок found и выходим из цикла. Если после завершения работы цикла found = false, то тройка не найдена, нужно вывести -1.

В PascalABC.NET тип integer хранит числа до 2 с лишним миллиардов, все числа и разность чисел должны в нем поместиться.

Код (PascalABC.NET 3.4.2.1837):

begin

 var values := new integer[3];

 var n := readinteger;

 (values[1], values[2]) := readinteger2;

 var prev_diff := values[1] - values[0];

 var found := false;

 for var i := 3 to n do begin

   values[i mod 3] := readinteger;

   var diff := values[i mod 3] - values[(i - 1) mod 3];

   if (diff = prev_diff) and (diff > 0) then begin

     print(values[(i - 2) mod 3], values[(i - 1) mod 3], values[i mod 3]);

     found := true;

     break;

   end;

   prev_diff := diff;

 end;

 if not found then print(-1);

end.

язык программирования питон

1)

import math;

r = int(input());

print(2 * math.pi * r);

print(math.pi * r ** 2);

2)

1.

import math;

a = float(input());

b = float(input());

print((math.sqrt(a) + math.sqrt(b)) / (math.sqrt(a ** 2 + b ** 2)));

2.

import math;

z = float(input());

y = float(input());

print((z * y) / (math.sqrt(z ** 3 + y ** 3)));

3.

import math;

x = float(input());

print(math.abs(x ** 2 - 2.4 * x + ((x + 1) / (x ** 2 + 2;

3) понял что надо среднее арифмитическое сделать из трех чисел, если что-то не так понял напиши.

a = float(input());

b = float(input());

c = float(input());

print((a + b + c) / 3);

4) не понял условие, перевод не понятный. Напиши если сможешь качественно перевести.

вариант Б тоже-самое что и 4 задание.

Так как целевой язык не указан и автор вопроса выразил своё безразличие к этому вопросу, то написал пример на С# с использованием возможностей стандартной библиотеки языка.

Код ниже:

using System;

using System.Linq;

using System.Collections.Generic;

namespace Znanium {

public class AnotherOne

{

 public static void Main()

 {

  // Генерация массива

  var rand = new Random(); // Инициализируем рандомайзер

  int[] arr = (from x in Enumerable.Range(0, 10) // Отсчитываем 10 элементов

     select rand.Next(100)) // Генерируем счисло от 0 до 99

     .ToArray(); // Делаем из объекта массив

 

  // Печатаем массив на экран

  Console.WriteLine("Source array:");

  PrintArr(arr);

 

  // Находим максимальный элемент

  int maxEl = arr.Max();

  Console.WriteLine($"Max element is {maxEl}.");

 }

 

 public static void PrintArr(int[] arr) {

  Console.Write("[ ");

  foreach(var el in arr) {

   Console.Write($"{el} ");

  }

  Console.WriteLine("]");

 }

}

}