Известны длины сторон треугольника a, b, c. Напишите
программу, вычисляющую периметр этого треугольника.
Пример входных данных Пример выходных да

pascal

Объяснение:

program triangle;

var

 a, b, c: real;

 p: real;

begin

 Write('Введите стороны треугольника >> ');

 ReadLn(a, b, c);

 if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then

 begin

   p := a + b + c;

   WriteLn('Периметр треугольника равен ',p);

 end

 else

  WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')

end.

2^i = 24

i = 5

ответ. 5 лампочек.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.