В данном случае источником информации можно рассмотреть как Себя так и телефон. Если Я источник информации, то кодирующим устройством будет телефон, каналом связи - электромагнитные волны, декодером - телефон друга, приемником - друг.
1 кубик - равен 1г
Мы запомним синий цвет
Вот такое вот количество
Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.
Program z1;
var a,b,c,s,p:real;
begin
writeln('введите три стороны треугольника');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-c)*(p-b));
writeln(s);
end.