// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;

begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
    Writeln('Введи второй катет: ');Readln(s2);
    Val(s2, b, err);
    if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
    else begin
      Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
      Writeln('Площадь равна ', 0.5 * a * b)
    end
end
end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО НАДО ЗА ЛУЧШИЙ И БЫСТРЫЙ ОТВЕТ + 40 БАЛЛОВ!! Составьте схему по следующему описанию: Близкие ви

Иванн [4]

Ответ в прикрепленном документе документе. Для тех, у кого нет Microsoft Word, прикрепил еще и картинку.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА СРОООЧНООО

jokerok

<span>Графика (лингвистика), тоже самое, что и письменность — совокупность письменных средств — букв, графем, знаков препинания и т. п. — какого-либо языка.

</span>

0 0

3 года назад

Прочитать ещё 2 ответа