Program by_Relhem;
var a,b,c,S:real;
begin
writeln ('Введите гипотенузу и катет, разделяя их пробелом');
read (a,b);
if a>b then
c:=sqrt(sqr(a)-sqr(b));
if b>a then
c:=sqrt(sqr(b)-sqr(a));
S:=0.5*(a*b);
writeln ('Катет: ',c, ' Площадь: ',S);
end.
((1+2):3+4):5=1
1+2+3-4+5-6=1
(1+2+3+4):5))+6-7=1
(1+2)*3-4+5+6-7-8=1
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('output.txt',ReadAllText('input.txt').ToReals.Average.ToString)
end.
437-1=436
436 переводим в четверичную систему счисления получаем 12310
А=0 И=1 О=2 У=3
следовательно получаем ИОУИА