Опишите функции инструкций continue break и блока else.[3] Continue

Break

Блок else

136

210

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

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

dsdg1g

Информатика

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

Var a: array[1..2,1..4] of real; b,c: string; d,x,y: real; i,j: integer; begin b: ='abcd'; c: ='xy'; writeln('трапеция abcd'); for i: =1 to 4 do begin writeln('координаты точки ',b[i],': '); for j: =1 to 2 do begin write(' ',c[j],i,' = '); readln(a[j,i]); end; end; x: =(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2; y: =(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2; d: =sqrt(x*x+y*y); writeln('длина средней линии: ',d: 5: 2); end.ввод - выводтрапеция abcd координаты точки a: x1 = 3 y1 = 2 координаты точки b: x2 = 5 y2 = 5 координаты точки c: x3 = 9 y3 = 5 координаты точки d: x4 = 10 y4 = 2 длина средней линии: 5.50