Question

1. Программа определяет наибольшее из двух чисел а и b. Все числа вводятся с клавиатуры.
2. Найти периметр прямоугольного треугольника P, если известны длины катетов а и в (вводятся с клавиатуры) и формула P = a + b +c и теорема Пифагора.
Вводить в qBasic

Answer 1

CLS
INPUT "a,b = ", a, b
IF a > b THEN
   PRINT a
ELSE
   PRINT b
END IF

---------------------

CLS
INPUT "a,b = ", a, b
c = SQR(a * a + b * b)
p = a + b + c
PRINT "P = "; p

Answer 2

№1
program prim 1;
  uses crt;
  var a, b: integer;
begin
  clrscr;
  writeln('введите 2 числа');
  readln(a,b);
  if a>b then writeln(a)
 else writeln(b);
end.

№2
CLS  
INPUT "A, B = ";a, b
c = SQR(a ^ 2 + b ^ 2)
p = a + b + c
PRINT "PERIMETR ="; p \
END