Ваша задача находит периметр треугольника, складывая вводимые длины его сторон.
На экран сначала будет выведен текст "Введите стороны треугольника", а по окончании ввода - строка "P=ххххх", где ххххх - вычисленная сумма трех введенных чисел. Предполагается, что все числа - целые.
Audi; BMW; Volkswagen; Datsun; KIA
Var k,k1,k2,kn,n,s:integer;
begin
write('k = ');
readln(k);
k1:=100;
k2:=100;
s:=k1+k2;
if k<=k1 then n:=1 else n:=2;
while s<k do
begin
n:=n+1;
kn:=k1+k2;
s:=s+kn;
k1:=k2;
k2:=kn;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 1100
n = 5</span>