язык программирования питон
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("]");
}
}
}
Храним в памяти 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.