Составить программу нахождения основания равнобедренного треугольника, если боковая сторона и периметр вводятся с клавиатуры.

Var a,p: integer; begin writeln('введите периметр равнобедренного треугольника: '); read(p); writeln('введите боковую сторону равнобедренного треугольника: '); read(a); writeln('основание равнобедренного треугольника: ',p-2*a); end.

//pascal var  //объявление переменных n, i: integer;   //объявляем переменные n - количество повторов и i - счетчик для цикла begin  //открытие логических скобок write('введите n: ');   //выводит текст на монитор 'введите n: ' readln(n);   //запрашивает ввод с клавиатуры и заносит значение в переменную n for i : = 1 to n do  //цикл от 1 до числа n writeln(', друг! ');   //с каждым шагом цикла выводится сообщение ', друг! ' readln;   //ожидание нажатия enther после выполнения программы end.

1) s=2      n=2  s: =2+4=6 2) s=6    n=3  s: =6+6=12 3) s=12  n=4  s=12+8=20 4) s=20  n=5  s=20+10=30 при каждом шаге будем получать видим закономерность 2*3_3*4_4*5_5* var s,s1,n: integer; begin writeln('старый код'); s : = 2; for n : = 2 to 5 do begin  write('s= ',s);   s : = s + n*2;   write('  n= ',n);   writeln('  s= ',s); end; writeln; writeln('новый код'); for n: =2 to 5 do  begin    s: =n*(n+1);     write('n= ',n);     writeln('  s= ',s);   end; end.