Выберите фигуры с верно записанными описаниями переменных для языка программирования Паскаль. Напиши столбец и строку нужных фигур.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

0   0

0   8

3   5

0   5

3   2

0   2

2   0

2   8

3   7 

var n,i: byte; p,s,r: real;

begins: =0; p: =1; write('введите n = '); readln(n); for i: =1 to n do beginreadln(r); s: =s+r; p: =p*r; end; writeln('cумма всех чисел s = ',s: 0: 4); writeln('произведение всех чисел p = ',p: 0: 4); writeln('cреднее арифметическое = ',(s/n): 0: 4); end.

#include < math.h>

#include < cstdlib> #include < iostream>

using namespace std;

float s(float a,float b,float c)

{

  float s,p;

  p=(a+b+c)/2;

  s=sqrt(p*(p-a)*(p-b)*(p-c));

  return s;

}

int main()

{

  float a1=1.5,b1=1.5,c1=2.12,a2=1,b2=3,c2=3.15;

  float s1,s2;

  s1=s(a1,b1,c1);

  s2=s(a2,b2,c2);

  cout< < s1-s2< < endl;

  system("pause");

  return 0 ;

}