Напишите в паскале треугольник задан длинами сторон.если такой треугольник существует, то сообщить какой он: равносторонний, равнобедренный или разносторонний
Var a,b,c : real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a+b<=c)or(a+c<=b)or(b+c<=a) then writeln('Треугольника не существует') else if (a<>b)and(b<>c)and(a<>c) then writeln('Треугольник разносторонний') else if (a<>b)or(b<>c) then writeln('Треугольник равнобедренный') else writeln('Треугольник равносторонний'); end.
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadSeqIntegerWhile(x->x<=100).ToArray; Writeln('Количество четных чисел равно ',a.Where(x->x.IsEven).Count); a.Transform(x->x.IsOdd?x*x:x); a.Println end.
Пример 35 24 38 83 110 Количество четных чисел равно 2 1225 24 38 6889
begin Writeln('S=',ReadSeqIntegerWhile(x->x>=0).Select(x->x mod 10).Sum) end.
Пример 16 24 19 21 45 0 23 -21 S=28
begin var n:=ReadInteger('n='); var St:=new Stack <integer>; while n>0 do begin St.Push(n mod 10); n:=n div 10 end; var a:=St.ToArray; a.Println(','); Writeln('Сумма цифр: ',a.Sum); Writeln('Сумма нечетных цифр: ',a.Where(x->x.IsOdd).Sum); Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last); end.
Пример n= 53214212 5,3,2,1,4,2,1,2 Сумма цифр: 20 Сумма нечетных цифр: 10 Сумма старшего и младшего разрядов: 7
нужно регулярно использовать антистатикивокруг стола не должно быть свисающих проводовнужно убедиться, что все провода целы, нет ли оголенныхнельзя начинать работу в неисправный техникойповерхности стола должна быть чистойнельзя пользоваться компьютером в помещении с повышенной влажностью или мокрыми рукаминельзя размещать какие-либо предметы на проводахнельзя очшать поверхность компьютера от загрязнений, когда он включенв помещении с компьютером нельзя курить и употреблять пищу и напиткирасстояние между глазами и экраном не мение полметра
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln('Треугольника не существует')
else if (a<>b)and(b<>c)and(a<>c)
then writeln('Треугольник разносторонний')
else if (a<>b)or(b<>c) then writeln('Треугольник равнобедренный')
else writeln('Треугольник равносторонний');
end.
Пример:
a=3
b=4
c=6
Треугольник разносторонний