===== PascalABC.NET =====
procedure Tri(a, b: real; var c, S, P: real);
begin
c := Sqrt(a * a + b * b);
S := 0.5 * a * b;
P := a + b + c
end;
begin
var (a, b) := ReadReal2('Введите длинв катетов:');
var c, S, P: real;
Tri(a, b, c, S, P);
Writeln('Гипотенуза ', c:0:3, ', площадь ', S:0:3,
', периметр ', P:0:3)
end.
1)409600 бит=50 Кбайт
2)7680 байт
3)12 Кбайт
4)86016 байт
Информация — от латинского слова "information", что означает сведения, разъяснения, изложение. Информа́тика<span> — </span>наука<span> о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки </span>информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений. Программи́рование — процесс создания компьютерных программ.
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.
Chertovo ogranichenie na min kolvo simvolov
max(b2:d2)