Даны три натуральных числа. напишите программу в паскале , определяющую , существует ли треугольник с такими длинами сторон. если такой существует , то определите его тип (равносторонний , равнобедренный, разносторонний) ! заранее .

Var a,b,c,k: integer; begin readln(a,b,c); if (a+b> c)and(b+c> a)and(a+c> b) then begin writeln('треугольник существует'); k: =1 end else writeln('треугольник не существует'); if (a=b)and(a=c) and (k=1) then writeln('равносторонний'); if =b)and(a< > c))or((c=b)and(c< > a))or((c=a)and(c< > (k=1) then writeln('равнобедренный'); if (a< > b)and(c< > b)and(a< > c)and (k=1) then writeln('разносторонний') end.

Эквивалентный, значит, равный. следовательно, будет стоять знак = пусть неизвестное основание - это х - натуральное число тогда ₂  ₁  ₀         ₂  ₁  ₀ 12 4₁₀ = 324ₓ   разложим числа, тогда получится 4*10⁰+2*10¹+1*10²= 4*x⁰+2*x¹+ 3*x ² 124=3*х²+2*х+4 (4*x⁰=4, так как любое число в 0 степени=1) решаем обычное квадратное уравнение 3*x²+2x-120=0 по теореме виета или дискриминанту находим х1=-40/6 - не может быть, так как х - натуральное число х2=6 ответ: 6

предполагается, что вводимые числа - целые.

1) с цикла repeat until

 

program n1; uses crt; var s,k,i: integer; sr: real; beginwriteln('vvodite chisla. vvedite 0 dlya okoncania vvoda'); repeatreadln(i); s: =s+i; inc(k); until i=0; sr: =s/(k-1); writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

 

2) с цикла while

program n1; uses crt; var s,k,i: integer; sr: real; beginwriteln('vvodite chisla. vvedite 0 dlya okoncania vvoda'); i: =1; while i< > 0 dobeginreadln(i); s: =s+i; inc(k); end; sr: =s/(k-1); writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.

 

3) с цикла for

 

program n1; uses crt; var s,j,k,i: integer; sr: real; beginwriteln('vvedite kolichestvo chisel'); readln(k); writeln('vvodite chisla'); for j: =1 to k do begin readln(i); s: =s+i; end; sr: =s/k; writeln('srednee arifmeticheskoe = ',sr: 4: 4); readlnend.