Два пассажира случайно берут билеты в один купейный вагон.
какое количество информации содержится в сообщении о том, что пассажиры взяли билеты в одно купе (в купейном вагоне девять купе, в каждом купе по четыре места).

1.первое число - целочисленный тип
второе - вещественный
разные диапазоны 
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 
 
2.
а) значения функции y=х(в квадрате)
var y,x: real
 
б) площади прямоугольника
var a,b,s: real
 
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
 
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea

#include <iostream>
using namespace std;
int main()
{
double a,b,c,max,min;
int kp,kn,kz;
cin>>a>>b>>c;
kp=kn=kz=0;
if (a>0) kp++;
else if (a==0) kz++; else kn++;
if (b>0) kp++;
else if (b==0) kz++; else kn++;
if (c>0) kp++;
else if (c==0) kz++; else kn++;
if (a>b)
   if (a>c) { max=a; min=(b>c) ? c : b; }
   else { max=c; min=b; }
else
   if (b>c) { max=b; min=(a>c) ? c : a; }
   else { max=c; min=a;}
double mid=(a+b+c)/3;
cout<<"polozhit: "<<kp<<", nulevykh: "<<kz<<", otritsat: "<<kn<<endl;
cout<<"min="<<min<<", max="<<max<<", Srednee="<<mid<<"\n";
system("pause");
}

Тестовое решение:
-1.76 2.18 -0.543
polozhit: 1, nulevykh: 0, otritsat: 2
min=-1.76, max=2.18, Srednee=-0.041
Для продолжения нажмите любую клавишу . . .