Var a, b : Integer; begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); WriteLn('Периметр P = ', 2*(a+b)); WriteLn('Длина диагонали d = ', Sqrt(a*a+b*b):0:5); end.
var a,b: integer;c: real; begin writeln('введите первое число'); readln(a); writeln('введите другое число'); readln(b); c:=(a+b)/2; writeln('среднее арифметическое двух чисел= ',c); end.
Answers & Comments
Verified answer
Var a, b : Integer;begin
Write('a = '); ReadLn(a);
Write('b = '); ReadLn(b);
WriteLn('Периметр P = ', 2*(a+b));
WriteLn('Длина диагонали d = ', Sqrt(a*a+b*b):0:5);
end.
var a,b: integer;c: real;
begin
writeln('введите первое число');
readln(a);
writeln('введите другое число');
readln(b);
c:=(a+b)/2;
writeln('среднее арифметическое двух чисел= ',c);
end.