Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d. пример program a1; var a, b, c: integer; begin readln (a,b,c); if (a+b> c) and (a+c> b) and (b+c> a) then writeln ( "треугольник построить можно") else writeln ("треугольник построить нельзя"); end.

138

437

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

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

сарвиназ002

Информатика

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

Var h,d,s: real; begin write('ширина кольца h: '); readln(h); write('отношение радиусов d: '); readln(d); s: =pi*sqr(h)*(d+1)/(d-1); writeln('площадь кольца: ',s: 7: 3); end.// h = r - r r/r = d // h = r*(d-1) => r = h/(d-1) // r = (d*h)/(d-1) // s = pi*(sqr(r) - sqr(r)) = pi*sqr(h)*((sqr(d)-1)/(sqr(d-1)) // s = pi*sqr(h)*(d+1)/(d-1)ширина кольца h: 2 отношение радиусов d: 1.5 площадь кольца: 62.832

natashashvachka

Информатика

4,8(57 оценок)

//pascal abc.net v3.1 сборка 1219 const n=5; var ar: array[1..n] of integer; i,j,k: integer; begin k: =n; for i: =1 to n do readln(ar[i]); i: =1; while (i< > n) and (k< > 0) do begin if ar[i]< 0 then begin for j: =i to n-1 do ar[j]: =ar[j+1]; dec(k); end else inc(i); end; writeln('final array: '); for i: =1 to k do write(ar[i]: 4); end.