1)
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.
2)
Var a,b : Real;
Function SrAr(aa,bb :Real) : Real;
Begin
SrAr:=(aa+bb)/2;
end;
Begin
Readln(a,b);
Writeln(SrAr(a,b));
end.
2 задача:утверждение 1 верно т.к в остальных случаях(именно 2-3)возможен такой исход,что дочка может приехать с мамой,что означает их равнозначность.
3 задача:САДВ
1 задача:в условии сказано 6 участников,а перечислено только 5.Поэтому можно сказать,что условие задачи не является корректным
Var i:integer;s:real;
begin
s:=0;
for i:=25 to 1255 do
begin
s:=s+power(i,3);
end;
writeln (s);
end.
1010,00100101(2) = 001 010,001 001 101(2) = 12,115(8)
1110,0101000(2) = 001 110, 010 100(2) = 16,24(8)
1000,1111001(2) = 001 000,111 100 100(2) = 10,744(8)
101011,11(2) = 101 011, 110(2) = 53,6(8)
1010,00100101(2) = 1010, 0010 0101(2) = A,25(16)
1110,0101000(2) = 1110,0101(2) = E,5(16)
1000,1111001(2) = 1000,1111 0010(2) = 8,F2(16)
101011,11(2) = 0010 1011, 1100(2) = 2B,C(16)
266(8) = 010 110 110(2) = 10110110(2)
266(16) = 0010 0110 0110(2) = 1001100110(2)
1270(8) = 001 010 111 000(2) = 1010111000(2)
1270(16) = 0001 0010 0111 0000(2) = 100100111(2)
10,23(8) = 001 000, 010 011(2) = 1000,001(2)
10,23(16) = 0001 0000, 0010 0011(2) = 10000,00100011(2)
11,1(8) = 001 001, 001(2) = 1001,001(2)
11,1(16) = 0001 0001,0001(2) = 10001,0001(2)
#incluide
void main( )
{
int a,b;//описание переменных
scant("%d%d",b);&//ввод
printf("a=%d b=%d",a,b)//вывод
}