1.исправить ошибки в программе; 2.что выведется на экран в результате выполнения программы? war: a, b, c-integer.x: real; bigin a=7, b=3, 2, c: =a+b; writln(summa=, c); c: =c/2; x: =a-c; writeln('x=', x, 'kvadrat=', x*x); and

1).  var a: integer; b,c,x: real; begin a: =7; b: =3.2; c: =a+b; writeln('summa=',c); c: =c/2; x: =a-c; writeln('x=',x,'kvadrat=',x*x); end. 2). первое-выведется сумма цифр равная "c" второе-выведется значение "х"=а минус полу сумма(1,9 это будет) а потом квадрат этого числа, т.е. 1,9*1,9=3, вроде

Первое: program qw;       var a,b,h,s: real; begin;       writeln('введите длину оснований и высоту: ');       read(a,b,h);       s: =(a+b)*h/2;       write('площадь трапеции равна ', s); end. второе: program qe;       var a,b,s: real; begin;       write('введите катеты треугольника: ');       read(a,b);       s: =0.5*a*b;       write('площадь треугольника равна ',s); end.

  var i,n: integer; begin  writeln(', веедите натуральное число не превосходящее 1000');   readln(n);   writeln('входное число=',n);   for i: =0 to (n-1) do write(i,' ');   end. пример работы:   , веедите натуральное число не превосходящее 1000 5 входное число=5 0 1 2 3 4  p.s.если в условии от 1-го, а не от нуля, for i: =0 to (n-1) do write(i,' '); замени на for i: =1 to (n-1) do write(i,' '); лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. в моей программе это делает оператор writeln(n); именно writeln, а не write. почему? потому что writeln произошло от слова line - линия, оно занимает целую строку. а write мастит все в одну строку. если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.