Решить на паскале: 1) Написать программу для ввода n пар натуральных чисел, из которых выбрать максимальное значения из каждой пары и посчитать сумму максимальных значений. На экран вывести список выбранных значений и сумму. Программу написать с использованием функции.
2) Написать программу подсчета количества четных и нечетных цифр 10 значного натурального числа. Программу написать с использованием процедуры, принимающей и возвращающей значения.
3) Написать программу для определения, является ли треугольник прямоугольным по трем введенным значениям длин его сторон. Программу написать с использованием процедуры без явного ввода значений и вывода (возврата) результата из процедуры .
4) Написать программу для ввода n пар чисел, из которых выбрать максимальное значения из каждой пары и посчитать сумму максимальных значений, при том так, чтобы четность суммы совпадала с четностью большинства выбранных чисел. (Если четность не совпадет, то выбрать число другой четности из пары с минимальной разностью значений). На экран вывести количество четных и нечетных чисел и максимальную сумму.
Console.WriteLine("Введите p");
double p = Convert.ToInt16(Console.ReadLine());
Console.WriteLine("Введите q");
double q = Convert.ToInt16(Console.ReadLine());
int c = 0;
double x = 0;
for (double i = p + 1; i < q - 1; i++) { x = i % 10; if (x == 0) c++; }
Console.WriteLine("");
Console.WriteLine("Количество натуральных чисел с последней цифрой 0 на отрезке (p,q) = "+ c);
Console.ReadLine();
При желании могу скинуть уже готовую программу.
Console.WriteLine("Введите Х1 ");
int a =Convert.ToInt16( Console.ReadLine());
Console.WriteLine("Введите Х2 ");
int b = Convert.ToInt16(Console.ReadLine());
int c=0;
if (b>a)
{ for (int i = a; i < b - 1; i++) c += i + 1; }
else { for (int i = b; i < a - 1; i++) c += i + 1; }
if (c == 0) Console.WriteLine("Между Х1 и Х2 елементов нету"); else Console.WriteLine("Сумма елементов между Х1 и Х2 = "+c); Console.ReadLine();
Если нужно могу скинуть exe-шный фаил с компилированной программой