Даны три действительных числа. если только два из них равны между собой, то возвести все числа в квадрат и напечатать в противном случае напечатать все три числа. написать программу

Var   a, b, c : real; begin   read (a, b, c);   if (a = b) xor (b = c) xor (a = c)  then // если только одно из равенств верно   write (sqr (a), ' ', sqr (b), ' ', sqr (c))   else write (a, ' ', b, ' ', c); end.

Пример реализации в vba  excel sub poisk() s1 = cells(3, 6) s2 = cells(4, 2) b = mid(s1, 1, 1) l1 = len(s1) n = 0 l2 = len(s2) for i = 1 to l2    a = mid(s2, i, 1)    if a = b then        ss = mid(s2, i, l1)        if ss = s1 then            n = i              exit for        end if    end if next i cells(3, 10) = n end sub

карта расширения, также называемая дополнительная карта, плата расширения, внутренняя карта, адаптер интерфейса или просто карта. карта расширения – это печатная плата, которую вставляют в слот расширения материнской платы компьютера с целью добавления дополнительных функций.

виды карт расширения компьютера интерфейсная плата (ata, bluetooth, eide, firewire, ide, parallel, raid, scsi, serial, и usb) модем mpeg декодеры сетевая карта звуковая карта видеокарта карты видеозахвата

совет: устройства выше могут быть не только в виде карт расширения, но и встроенными в материнскую плату