profile
Опубликовано 5 лет назад по предмету Информатика от Rudiz

Решить задачи с помощью линейных алгоритмов !
Заранее спасибо )

  1. Ответ
    Ответ дан fofgogjoj
    №3

    program fofgogjoj;
    var
    a,b,c,S,P:real;
    begin
    Writeln('Введите длину катета a');
    Readln(a);
    Writeln('Введите длину катета b');
    Readln(b);
    c:=sqrt(a*a+b*b);
    P:=a+b+c;
    S:=(1/2)*a*b;
    Writeln('P=', P:0:2);
    Writeln('S=', S:0:2);
    end.
Самые новые вопросы