Написать 3 программы на паскале (30 )

ответ:

1)program  a1;

  var a,b,c,d,e,max: real;

begin    

  clrscr;    

  writeln('введите 10 чисел');    

  readln(a,b,c,d,e);    

  if a> b then max: =a else max: =b;    

  if c> max then max: =c;    

  if d> c then max: =d;    

  if e> d then e: =max;    

  writeln('максимальное значение является: ',max);    

  readln

end.

объяснение:

только с первым

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

   float x1, y1, x2, y2, x3, y3, v1, v2, b1, b2;

   cout << "x1 y1: ";

   cin >> x1 >> y1;

   cout << "x2 y2: ";

   cin >> x2 >> y2;

   cout << "x3 y3: ";

   cin >> x3 >> y3;

   v1 = x1 + x2;

   v2 = y1 + y2;

   b1 = x1 + x3;

   b2 = y1 + y3;

   cout << "Sum 1: " << "(" << v1 << ";" << v2 << ")" << endl;

   cout << "Sum 2: " << "(" << b1 << ";" << b2 << ")";

}

Задача 1:

a = int(input())
S = int(input())
b = S/a
P = (S/b + b) * 2
print("Вторая сторона = : ", b)
print("Периметр =: ", P)

Задача 2:

a = int(input())
b = int(input())
S = a * b
P = 2 * (a + b)
print("Площадь = : ", S)
print("Периметр =: ", P)

Задача 3:

print("Введите координаты первой точки")
ax = int(input())
ay = int(input())
print("Введите координаты второй точки")
bx = int(input())
by = int(input())
rx = (ax**2) + (ay**2)
ry = (bx**2) + (by**2)
if rx < ry:
print('Первая точка ближе')
if rx > ry:
print('Вторая точка ближе')