Var a,b,c:integer; //стороны
begin
writeln('Введите длины сторон:');
read(a,b,c);
if (a=b)and(a=c)and(b=c) then
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.
Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39
Слева от троеточия - последовательность (не помню какая)
Справа от троеточия - формулы вычисления этой последовательности, следовательно тебе надо разобрать только формулу.
Я попробую тебе объяснить, а ты уже попробуй сделать схему (не помню, как схема строится):
m - постоянно увеличивается на +1, так и получается последовательность (например, m=2 -> x^3/3 и т.д.).
Можно воспользоваться циклом, а в цикле прописать то, что m увеличивается на +1 -> m=m+1, и прописать формулу (x^2*m-1)/(2*m-1)
Вот, в принципе, и всё. Надеюсь разберёшься дальше
Я, мой телефон, мобильная связь, телефлн друга, друг
В феврале 1946 года был создан первый компьютер.