Найти площадь кольца, внешний радиус которого равен r1, а внутренний - r2 (r1> r2). разработать схему алгоритма для решения этой . протестировать алгоритм для r1=5.6 и r2=3.8. проверить ответ на калькуляторе. только на паскале, : 3

278

478

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

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

catikis

Информатика

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

var r1, r2: real; begin write('введите данные - '); read(r1, r2); writeln('pi = ', pi); {это чтоб знать с какой точностью брать п} writeln('s = ', pi * abs(r1 * r1 - r2 * r2)); end.

Хэлпер228666

Информатика

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

Var a, b, c, d: integer; x, x2: real; begin write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d : = sqr(b) - 4 * a * c; if d > 0 then begin x : = (-b - sqrt(d)) / 2 * a; x2 : = (-b + sqrt(d)) / 2 * a; writeln('x1 = ', x, newline, 'x2 = ', x2); end; if d < 0 then writeln('корней нет.'); if d = 0 then begin x : = (-b) / 2 * a; writeln('x = ', x); end; end.