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

Аты логично подумай что: они купил 3 цвета флешки: синего, белого и красного. если у ане была - синяя флешка. а у маши была не синяя а у вари не белая  значит у ане бюла синяя у вари была красная у маши была белая.

Уани-синяя, у маши- белая, у вари красная.

For i = 1 to 9   for j = 1 to 9       s$=string(i*j)       if length(s$)=1 then s$="  "+s$ else if length(s$)=2 then s$=" "+s$       print s$;   next j   print next i end результат работы программы:   1  2  3  4  5  6  7  8  9   2  4  6  8 10 12 14 16 18   3  6  9 12 15 18 21 24 27   4  8 12 16 20 24 28 32 36   5 10 15 20 25 30 35 40 45   6 12 18 24 30 36 42 48 54   7 14 21 28 35 42 49 56 63   8 16 24 32 40 48 56 64 72   9 18 27 36 45 54 63 72 81 замечание: таблица на самом деле ровная, это тут ширина пробела и ширина цифры различна, поэтому сдвиг.

  const n=5; var a: array [1..n,1..n] of integer;     i,max,ind,s,j: integer; begin    s: =0;   randomize;   for i: =1 to n do    for j: =1 to n do      a[i,j]: =random(100)-50; for i: =1 to n do begin  for j: =1 to n do   write(a[i,j]: 4);   writeln;   end;   j: =6;     for i: =1 to n do     begin      dec(j);       if a[i,j]< 0 then        s: =s+a[i,j];     end;   max: =a[1,2];   ind: =1;   for i: =1 to n do    if abs(a[i,2])> abs(max) then     begin      max: =a[i,2];       ind: =i;     end;   a[ind,2]: =s;         writeln;         writeln;     writeln('a)summ: ',s);     writeln('b)max: ',max);     writeln;         writeln('c)');   for i: =1 to n do begin  for j: =1 to n do   write(a[i,j]: 4);   writeln;   end;   readln; end.