Chyamazhb
5 год назад
1. Программа определяет наибольшее из двух чисел а и b. Все числа вводятся с клавиатуры.2. Найти периметр прямоугольного треугольника P, если известны длины катетов а и в (вводятся с клавиатуры) и формула P = a + b +c и теорема Пифагора.Вводить в qBasic
ОТВЕТЫ
Mariana
Oct 24, 2020
№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
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
800
Смежные вопросы:
