Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале

124

399

Посмотреть ответы 2

Ответы на вопрос:

Stoianova1988

Информатика

4,6(5 оценок)

// 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.

nikaa10

Информатика

4,4(29 оценок)

program ddd; var i,n,s,k: integer; beginwrite('введите n: '); readln(n); s: =0; k: =0; i: =1; while s< =n dobegins: =s+i; writeln(i); inc(i); inc(k); end; writeln('необходимо ',k,' слагаемых; сумма равна ',s ); end.