Девочки аня, маша и варя купили себе флешки синего, белого и красного цветов.на вопрос, у кого из них какая флешка одна из девочек ответила: "у аня флешка синяя, у маши-не синяя, а у вари-не белая". впоследствии выяснилось что в ответе верно сказано о цвете флешки только одной девочки. какого цвета флешка у каждой из девочек? заранее!

Верно сказано про аню( точное утверждение) у ани синяя флешка у маши не синяя ( значит или белая или красная) у вари не белая (значит синяя или красная),но синяя у ани. получается, то у вари--красная. тогда оставшаяся белая флешка у маши 

Ответ будет такой: у ани  белая,у маши  синяя,у вари  красная.                                           объяснения: если правда, что у ани синяя, то у маши тоже синяя, а у вари - белая.это ложь!       если правда, что у маши не синяя, тогда у ани не синяя, а у вари белая. тогда у вари белая, а у ани и маши синяя и красная   *будет не известно в каком будет порядке*.   если правда, что у вари не белая, то у ани белая, а у маши синяя!        

Var r,v: real; begin readln(r); v: =  (4/3)*pi*sqr(r)*r; writeln(v); readln; end. var  a,  b,  c,  cab, cba, acb:   real;   begin writeln('vvedite storonu a'); readln (a); writeln('vvedite storonu b'); readln (b); writeln('vvedite storonu c'); readln (c); cab: =(sqr(c)-sqr(a)-sqr(b))/(-2*a*b); cba: =(sqr(a)-sqr(b)-sqr(c))/(-2*b*c); acb: =(sqr(b)-sqr(a)-sqr(c))/(-2*a*c); writeln('ugol cab =', cab: 3: 2 ); writeln('ugol = cba = ', cba: 3: 2 ); writeln('ugol = acb = ', acb: 3: 2 ); readln; end. //uses crt; var k:   integer; //  идёт k-ая секунда begin readln(k); writeln('часов: ',  k div 3600); while k> =3600 do k: =  k  -  3600; writeln('минут: ',  k div 60); end. var r1, r2, r3, r0: real; begin writeln('vvedite r1 =');   readln(r1); writeln('vvedite r2 =');   readln(r2); writeln('vvedite r3 =');   readln(r3); r0: =1/(1/r1+1/r2+1/r3); writeln('soprotivlenie = ', r0); readln; end.

Program pr; uses crt; var  a,b: real; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); if (a< 0) and (b< 0)          then              begin                      a: =a+2;               b: =b+2;                 writeln('a = ',a);                 writeln('b = ',b);             end else          if (a> 0) and (b< 0)                then                    writeln('a*b = ',a*b)       else                if (a< 0) and (b> 0)                          then                                writeln('b-a = ', b-a)             else  writeln('ни одно условие не выполняется'); readln; end.